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0. PROLOGO 


La fuerte caída de precios en el mercado de los ordenadores, 
ha llevado a que actualmente se puedan comprar 
microordenadores por relativamente poco dinero, que hace 
poco mas de diez años eran casi Impagables. 

Mientras entonces solamente grandes organizaciones como 
ministerios, universidades y grandes firmas estaban en 
condiciones de utilizar ordenadores para la solución de 
determinadas tareas, hoy en día encontramos en muchos 
domicilios privados aparatos electrónicos que, vistos desde 
su capacidad de rendimiento, representaban en tiempos 
pasados un pequeño centro de cálculo. 

Este o aquel comprador de un microordenador (con o sin una 
periferia extensa) se preguntará - después de haber probado 
los primeros juegos de ordenador - qué trabajos puede asumir 
ahora el ordenador. 

Además del tratamiento de todas las facultades y 
peculiaridades del Amstrad CPC, la contestación a esta 
pregunta se encuentra en el centro del presente libro. No 
obstante, aquí el lector no solamente debe asumir conceptos 
terminados (en este caso podría pedir directamente al 
comerciante que le vendió el ordenador, software ya 
confeccionado) sino que, a base de las descripciones de 
programas, debería poder ver cómo se problematlzan las Ideas 
y se convierten en programas técnicos. 

Los diversos programas están escritos en lenguaje de 
programación BASIC, el cual actualmente desempeña un papel 
dominante en el campo de los microordenadores. Se presupone, 
en principio, que el lector posee algunos conocimientos 
fundamentales de BASIC, pero también debería estar en 
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condiciones de comprender los diversos programas, después de 
un Intenso estudio del libro manual de Instrucciones del 
Amstrad CPC, aun cuando ello, en determinada medida, no 
siempre es muy fácil. Los programas, por ello, están 
formados de manera que siempre es reconocible lo que sucede. 
Esto ha sido, naturalmente, a costa de la elegancia del 
programa y de la velocidad de cálculo. La utilidad de este 
libro para el lector se hace patente, por tanto, 
especialmente cuando modifica los programas presentados o 
los elabora de acuerdo con sus propias necesidades. SI, en 
ello, se le presentaran dificultades aparentemente 
Insuperables, entonces piense usted que: 


Nadie ha nacido sabio 


Los diferentes capítulos de este libro están subdlvldldos, 
por regla general, de acuerdo con el siguiente modelo: 


a) Presentación y problematlzaclón de una Idea 

b) Programa 

c) Lista de las variables utilizadas en el programa 
y, dado el caso, 

d) Resultados del programa 
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Las Ideas abordadas tienen como consecuencia soluciones 
técnicas de programación de diverso grado de dificultad. No 
obstante, hemos tenido la precaución, al principio de un 
nuevo capítulo, de presentar primero las Ideas o propuestas 
con las soluciones más fáciles de los programas, con el fin 
de Introducir poco a poco al lector que aun no esté 
completamente versado en BASIC, en la creación de programas 
más complicados. Por principio hay que tener en cuenta 
además que, no siempre se evitan entradas absurdas o 
Imposibles desde el punto de vista de la lógica o de la 
ejecución del programa. No obstante, ello es señalado en 
cada caso. 
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1. El CPC y lo que se puede hacer con él 


SI se observa el mercado de los microordenadores, nos 
daremos cuenta que, entretanto, se están ofreciendo una gran 
cantidad de ordenadores comparables del mismo nivel de 
precio. Solo ocasionalmente un aparato electrónico de este 
tipo se sale de este marco. El Amstrad (en cualquiera de sus 
modalidades) pertenece, con toda seguridad, a los lucios (¿ 
o es verdaderamente un lucio ?) entre tantas carpas en el 
estanque. Este ordenador muestra algunas notables cualidades 
que no tienen parangón. 

Además de las extraordinarias cualidades para gráficos y 
música, hay que destacar especialmente la definición de 
ventanas (Windows) para la determinación de un área parcial 
de la pantalla como dispositivo propio de entrada/saI Ida 
consultable (stream), asT como la programación de 
Interrupciones dependientes del tiempo (Interrupts) para la 
ejecución simultánea o dependiente del tiempo de diversas 
acciones. En los siguientes capítulos trataremos con más 
detalles estas peculiaridades en su aplicación. 

Ya en su equipamiento básico, el sistema del Amstrad CPC es 
una Instalación de cálculo de pleno funcionamiento. Con ella 
se pueden llevar a cabo los pasos fundamentales del 
procesamiento de datos 

- Toma de datos o Información (por el teclado) 
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- Almacenamiento de Información o de datos (Interno 
o externo) 

- Evaluación o procesamiento de estos datos 

- Edición de resultados (por medio de la pantalla) 

Un Inconveniente en la utilización de un dlsposttlvo de 
cassette como medio externo de almacenamiento, es que los 
cassettes solamente pueden ser escritos o leídos 
secuenclal mente. SI, por ejemplo, un determinado fichero ha 
de ser leído por un cassette, éste, primero, ha de ser 
bobinado en la posición correspondiente. Esto, 
eventuaImente, puede tener como consecuencia un trabajo de 
búsqueda bastante desagradable. En todo caso, es razonable 
no almacenar demasiadas Informaciones en una cara de 
cassette y, con ayuda del contador de cinta (counter), 
anotarse las diversas posiciones. 

Más cómoda resulta la utilización de una unidad de disco. 
Además de la mayor capacidad de memoria de un dtskette, es 
posible un acceso muy rápido a determinadas posiciones (el 
dlskette gira constantemente y de forma muy rápida en la 
unidad de disco). Por ello se habla también de una memoria 
con posibilidad de acceso directo (memoria de 
dlrect-access). Respecto a las Instrucciones BASIC a 
utilizar, la utilización de una unidad de disco no se 
distingue, en principio, de la utilización de un cassette. 
Los programas son, pues, totalmente compatibles. 

La utilidad de un ordenador queda clara para el usuario 
cuando éste dispone del software propio. La pregunta de cómo 
se llega a buenos programas que sean apropiados para las 
diversas tareas, se puede contestar de 3 maneras: 

1) Comprando software ya preparado 

2) Copiando listados de programas 

3) Desarrollando programas uno mismo 
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Si le falta a Vd. tiempo o experiencia para la programación 
propia, deberá dlrlgtrse al mercado del software. Esto es 
especialmente válido cuando se quiere utilizar en seguida de 
forma más o menos profesional el nuevo ordenador que acaba 
de comprar (piense aquí, p.ej., en el procesamiento de 
textos, contabilidad financiera, cálculos, etc.). No 
obstante, el surtido de programas acabados es muy extenso. 
Precisamente para el CPC han aparecido últimamente en el 
mercado una gran cantidad de programas muy diferentes por su 
precio y calidad. En todo caso, antes de la compra vale la 
pena hacer comparaciones concienzudas. Para ello debería Vd. 
necesariamente tener en cuenta los siguientes puntos de 
vista: 

- Calidad de las Instrucciones de uso 

- Servicio post-venta 

- Consideración del campo de aplicación Individual 

- Tests de software en revistas técnicas 

El tecleado de listados de programas es un asunto 
problemático. Según la seriedad del editor, hay que contar 
con que los listados estén llenos de errores. Dado que si 
faltan las necesarias explicaciones de programas, es muy 
difícil profundizar en la lógica de un programa desconocido, 
la búsqueda y eliminación de errores puede exigir más tiempo 
que el desarrollo de programas Independientes. Así pues, 
antes de teclear voluminosos listados de programa, debiera 
Vd. comprobar la correspodlente fuente. 

Muchos críticos de la utilización privada de los ordenadores 
califican esta práctica como una actividad no creativa. En 
efecto, usar día tras día el ordenador solamente para jugar, 
puede ser estúpido. Sin embargo, y sin duda alguna, hacer 
pruebas con el ordenador se convierte en un hobby creativo 
cuando 


7 



los programas son escritos o adaptados por uno mismo. No 
obstante, siempre hay poseedores de ordenadores a los que, 
eventuaImente les puede •faltar estímulos e Ideas para poder 
trabajar creativamente con su ordenador. Para este círculo 
de personas, este libro debiera ser Ideal ya que, 
efectivamente, son abordados los más diversos temas y 
propuestas y son llevados al campo técnico de la 
programación. A estos programas ''acabados 1 ' (pero 
naturalmente todavía modlfloables) se añaden aún a cada 
''bloque de Ideas' 1 otras propuestas (capítulo ''Filón 1 ') 
que en este libro no han podido ser tratadas más 
detalladamente pero que quizás estimularán al lector para el 
desarrollo de programas. A causa de la variedad de los 
temas, en todo caso habrá para todos los Interesados algo 
que les vaya bien. 
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Tanto por cíento= 


Valor del porcentaje * 100 


Valor base 


Valor base = 


Valor del porcentaje * 100 


Tanto por ciento 


Programa: 

2. Pequeneces útiles - programadas fácilmente 


2.1. Advertencia preliminar 


En este primer capítulo de Ideas propiamente dichas se 
presentan soluciones de programas comparativamente sencillas 
y claras. Por el contrario, las explicaciones de programas - 
st se relacionan con los grados de dificultad de los mismos 
- son bien extensas. De esta manera se pretende conseguir 
que el lector InexperImentado se vaya Introduciendo 
lentamente en los programas algo más complicados de los 
capítulos siguientes. 

Por su contenido se trata aquí - especialmente en los tres 
primeros programas - de soluciones de problemas que, en 
programas mayores y más voluminosos, pueden ser utilizados 
como subprogramas. Así, por ejemplo, en el transcurso de 
este libro, se encontrará usted frecuentemente con el 
cálculo de porcentajes que, para la solución de problemas 
más pequeños, puede prestar útiles servicios. 
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2.2 El cálculo de porcentajes 


Con frecuencia es necesario comparar dos o varios valores 
entre sí. Para ello el número 100 nos sirve de base de 
comparación. 

Antes de todo hay que aclarar los siguientes conceptos 
básicos del cálculo de porcentajes: 


1. Valor base 


El valor básico corresponde al total, es decir, cien cen¬ 
tésimas partes o 100Í. Siempre se menciona un concepto o 
numero (DM, kg, m. o similares). 

2. Valor del porcentaje: 


El valor del porcentaje es una parte del valor base. Se 
menciona Igualmente un número. 

3. Tanto por ciento: 


El tanto por ciento es asimismo una parte del valor base. 
No obstante, se Indica relacionado a cien. El tanto por 
ciento y el valor del porcentaje se corresponden uno a 
otro. 
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Un pequeño ejemplo le facilitará el manejo de estos con¬ 
ceptos: 

Digamos ya de una vez que su CPC 464 cuesta en la tienda de 
ordenadores xyz 898,- DM (valor base). Ahora va usted a otro 
comerciante que quiere quedarse el 4 % (100 - el tanto por 
ciento) por debajo de este precio. 0 bien le pregunta a este 
comerciante por el precio exacto (valor del porcentaje) o 
bien lo calcula usted con la fórmula siguiente: 

Valor base * porcentaje 

Valor del porcentaje = - 

100 


898 DM * 96 


100 


862,08 DM 


Quizás sea usted de la opinión que no es necesario el empleo 
de un ordenador para cálculos tan sencillos. Pero, con el 
corazón en la mano, ¿ hace usted estos cálculos con la 
cabeza? Probablemente necesitará una calculadora de 
bolsillo por lo menos lápiz y papel. Y luego siempre hay 
alguien que tiene que pensar brevemente de qué manera se 
calcula un valor de porcentaje. Además ocurre también que - 
si se desea - se puede asimismo calcular el valor base 
desconocido o el tanto por ciento desconocido. Y seguro que 
muchos ya no tienen las correspondientes fórmulas de cálculo 
a punto, a pesar de que son bien sencillas: 
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ID REM II 
20 CLS 

30 PRINT"I1 - Programa para el calcólo ¿a' 

40 PRINT TRBCBi"valoree de percentaje, .aleros" 

50 PRINT TRBC61''base o porcentajes ' 

BO PRINT:PRINT:PRINT 

70 PRINT TABCU J "Bernd Koiual, 1985" 

BO GOSUB 380 

80 PRINT TRBCIB)"elección":PRINT:PRINT:PRINT:PRINT 
100 PRINT”valor de porcentaje = 1 ' : ?RINT 

110 PRINT^alor base - 2": PRINT 

120 PRINT"Porcentaje - 3":PRINT 

130 PRINT:PRINT:PRINT 

140 PRINT”Entre el numero correspondiente al” 

150 PRINT”valor desconocido.” 

1B0 PRINT:INPUT”Su elección ”¡a 
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170 IF a<1 GR a>3 THEN 220 
100 CLS 

190 PRINT”Indique los valores para las magnitudes" 
200 PRINT"conocidas.”:PRINT:PRINT 
210 QN a GDSUB 230,200,330 

220 PRINT:PRINT:PRINT:PRINT”Fin de los cálculos":END 
230 INPUT”Ualor base ”;gu:PRINT 
240 INPUT"Porcentaje ”¡ps 
250 pw-gw*ps/100 

260 PRINT:PRINT:PRINT”E1 porcentaje es igual a :"¡pul 
270 RETURN 

200 INPUT”Ualor de porcentaje ” ; pui: PRINT 
290 INPUT"Porcentaje ”;ps 
300 gu“pu¡*100/ps 

310 PRINT:PRINT:PRINT"El valar base es igual a : " ; gw 
320 RETURN 

330 INPUT"Ualor de porcentaje "¡pu:PRINT 
340 INPUT"Ualor base ”;gw 
350 ps=pui*100/gtu 

360 PRINT:PRINT:PRINT"E1 porcentaje es igual a :";ps 
370 RETuRN 

300 RETI UP subprcgrama esperar 

390 LOCPTE 7,25 

400 PRINT'Pulse una tecla" 

410 :■■;$ = INKEYS : I F ;:$="" THEN 410 
420 CLS:RETURN 
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Lista de variables: 


a = Variable de contestación para el menú de selección 

gw = Valor base 

ps = Tanto por ciento 

pw = Valor del porcentaje 

x$ = Variable auxiliar que proporciona el valor de la tecla 
puIsada. 


Dado que la variable x$ tiene la misma función en cada 
programa de este libro, en los siguientes capítulos no se 
volverá a mencionar Individualmente. 


Descripción del programa: 

Línea 10 : Comentarlo (no se edita) 

Línea 20 : Se limpia la pantalla 

Líneas 30- 70 : Edición del título 

Línea 80 : Se llama el programa "esperar" 

Líneas 90-150 : Edición del menú de selección 

Línea 160 : Se pide un valor correspondiente al menú de se¬ 
lección 
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Línea 170 : Se hace una ramificación al final del programa 
si se entra un valor demasiado grande o dema¬ 
mas lado pequeño 

Líneas 180-200 : Se borra la pantalla y se edita un comen¬ 
tario relativo a las entradas que todavía 
hay que hacer 

Línea 210 : Según sea la entrada del menú de selección 
tendrá lugar un salto al correspondiente sub¬ 
programa 

Línea 220 : Fin del programa 

Líneas 230-270 : Subprograma para el cálculo del valor del 
porcentaje 

230-240 : Se piden valores para el valor 
base conocido y para el tanto 
por ciento conocido 

250 : Se calcula el valor del porcentaje 
260 : Se edita el resultado 
270 : Abandono del subprograma 

Líneas 280-320 : Subprograma para el cálculo del valor ba¬ 
se. La forma de proceder corresponde a la 
de las líneas 230-270. 

Líneas 330-370 : Subprograma para el cálculo del tanto por 
ciento. Se procede de forma análoga a la 
de los dos subprogramas precedentes. 

Líneas 380-420 : Subprograma para esperar 
380 : Comentarlo 

390 : Se pone el cursor en la posición 
indicada 

400 : Se edita un comentarlo 
410 : Interrupción de la ejecución del 
programa hasta que se pulse una te¬ 
cla. 
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420 : Se limpia la pantalla y tiene lugar 
el abandono del subprograma. 

Resultados del programa: 

SI Iniciamos el programa con el comando RUN, aparece en la 
pantalla el título del programa. 

SI luego pulsamos una tecla, se edita el menú de selección y 
se pide la entrada para el valor desconocido. Si, por 
ejemplo, entramos el valor 1, se edita un comentarlo y se 
pide un número para el valor base. SI, a modo de ejemplo, 
entramos el valor 898, se pide aún un valor para el tanto 
por ciento. Después de la entrada del número 96, el 
ordenador contesta con: 

El valor del porcentaje es Igual a : 862,08 

Final de los cálculos 
Ready 

Debe mencionarse también que el programa está concebido de 
manera tan general que calcula el valor del porcentaje, el 
valor base o el tanto por ciento para una entrada 
cualquiera. La problemática de esta propuesta de programa no 
exige, en realidad, una descripción de programa que sea tan 
detallada como la que practicamos aquí. Más bien es 
conveniente mostrar cómo se procede por principio en los 
diferentes capítulos. Por lo tanto, en lo sucesivo los 
programas relativamente sencillos se comentarán de manera 
más escueta. 
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2.3 El valor menor, el valor mayor y el valor medio 


Imagínese usted que es el presidente de un asociación y 
desea saber algo sobre la estructura de edad de los miembros 
asociados. Lo más adecuado es preguntar por la edad del 
socio más joven y la del más viejo así como la edad promedio 
(o sea, la media aritmética). 

Mientras usted antes precisaba de papel, lápiz y algo de 
tiempo para contestar a estas preguntas, hoy en día es 
suficiente utilizar correctamente su CPC. Lo único que 
necesita es un programa adecuado y eso lo encontraré usted 
directamente en la página siguiente. 

El programa, naturalmente, no solamente funciona para 
Informaciones sobre edades, sino también para los números 
que usted quiera. Así pues, también lo puede utilizar aunque 
no sea presidente de una asociación. 

En el caso de que tenga usted una Importante exlstencta de 
datos, quizás será más adecuado no entrar cada valor con el 
statement INPUT sino con el de DATA y READ (vea capítulo 
2,4), ya que al entrar varios valores, se producen, con 
bastante facilidad, errores al teclear. 
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Programa 


10 REH 12 
20 CLS 

30 PRINT”IH - Programa para buscar el” 

40 PRINT TfiB(6j“valor menor y el mayor” 

50 PRINT TABC6j"de un conjunto de datos y' 
60 PRINT TABC6!! "para el calculo de valor” 

70 PRINT TABC6)"medio” 

80 PRINT:PRINT:PRINT 

80 PRINT TRBC111 "Bernd Koiual, 1985” 

100 GOSUB 280 

110 INPUT"Cuantos datas ”¡n 
120 IF n-0 THEN 270 
130 DIN aCn) 

140 PRINT:PRINT"Entrada de datos :”:PRINT 
150 FOR 1-1 Tü n 

160 PRINT i;”üalor." ; :INPUT aCil 
170 s-s+aCi) 

180 NEXT i:CLS 

130 d-s/n:k-aC11:g-aC1) 

200 FOR i-2 TO n 
210 k-NINC k,aCi) ) 

220 g-MAXCg,aCi11 
230 NEXT i 

240 PRINT:PRINT”Oalor menor -”¡k 

250 PRINT:PRINT”Oalar mayor -”;g 

260 PRINT:PRINT”Ualor medio -”;d 

270 PRINT:PRINT:PRINT”Fin del programa”:END 

280 REN UP subprograma esperar 

290 LOCATE 7,25 

300 PRINT”Pulse una tecla" 

310 xS-INKEYS:IF xS-”” THEN 310 
320 CLS:RETURN 
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Lista de variables: 


a(I) = Los valores entrados 
d = Valor promedio 
g = Valor mayor 
I = Indice de control 
k = Valor menor 

n = Número de valores entrados 
s = Suma de los valores entrados 

Descripción del programa: 

Líneas 10-100 : Título 

Línea 110 : Se pide un valor para la cantidad de números 
a entrar. 

Línea 120 : Se ramifica al final del programa si no hay que 
entrar ningún número 

Línea 130 : Se reserva espacio de memoria para el campo 
a(n) 

Líneas 140-180 : Entrada de los datos. En el campo s se su¬ 
man directamente los diferentes valores. 
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Línea 190 : Se calcula el valor medio y para las variables 
bles k y g se toma, como magnitud de Ini¬ 
cio, el valor entrado en primer lugar a (1) 


Líneas 200-230 : Todos los valores entrados son comparados 
con el valor menor (línea 210) y el mayor 
(línea 220). SI un valor es Inferior o su¬ 
perior que el valor menor o mayor que te¬ 
níamos hasta ahora, se modifica correspon¬ 
dientemente el valor de las variables k o 
g. El bucle de programa no empieza hasta el 
valor 1=2 ya que en la línea 190 las va¬ 
riables k y g han sido ocupadas con el pri¬ 
mer valor a(1). 

Líneas 240-260 : Edición de resultados 

Línea 270 : Fin del programa 

Líneas 280-320 : Subprograma ''esperar' 1 


Resultados del programa: 

SI después del Inicio del programa entramos 4 valores, por 
ejemplo los números 19,63,79 y 56, recibiremos el siguiente 
resultado: 

Valor menor = 19 

Valor mayor = 79 

Valor medio = 54,25 


20 



Final del programa 
Ready 

Un resultado de esta clase, naturalmente, también podemos 
Interpretar lo todavía. Es, ciertamente, llamativo que tres 
valores estén por encima del valor medio y solamente uno por 
debajo del mismo y que el valor más pequeño esté más alejado 
del valor medio que el mayor. La causa de ello hay que verla 
en la Irregular distribución de los valores Investigados por 
todo el espectro de números. Referido a nuestro presidente 
de asociación, esto significaría que la juventud, 
ciertamente, está representada pero que dominan claramente 
los señores y señoras mayores. 
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2.4. El orden alfabético 


Continuemos con nuestro presidente de asociación. Supongamos 
que usted, como presidente, quiera poner en orden el carnet 
de socio. Para ello se precisa, con toda seguridad, la 
clasificación de todos los nombres por orden alfabético. 
Esto, si la cantidad de socios es muy extensa, puede 
resultar un trabajo bastante penoso. Pero un trabajo de 
clasificación de este tipo sería verdaderamente desagradable 
si, por ejemplo en las guías telefónicas, los nombres 
tuvieran que ser clasificados ''a mano 11 en libros 
telefónicos. 

Este trabajo no resulta nada problemático con la ayuda del 
ordenador. El presente programa clasifica cualquier cantidad 
de palabras o, en general, de cadenas. Los datos aquí, al 
contrario de lo que ocurre en el último programa, son 
entrados con la ayuda del DATA-statement. Así pues, si 
quiere usted utilizar otros datos, tendré que modificar los 
correspondientes DATA-statements y entrar un número adecuado 
para la variable n. 

Hay que tener en cuenta que para los datos, solamente se han 
utilizado letras mayúsculas. A causa de un ajuste previo del 
ordenador, la utilización mixta de letras minúsculas y 
mayúsculas conduce siempre a que las letras mayúsculas sean 
consideradas como las "más pequeñas". Así, por ejemplo, 
siempre se cumple la condición C < c. No obstante, con la 
ayuda de las funciones LOWERÍ o UPPERÍ es posible la 
conversión de letras mayúsculas en minúsculas o viceversa, 
de forma que se podrían utilizar también las letras 
mayúsculas y minúsculas mezcladas. 
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El presente programa también se puede modificar sin 
problemas si no deseara usted clasificar en lugar de 
cadenas, números. Entonces solamente tiene que modificar las 
variables w$ y hl$ (w$ se convierte en w y hl$ en hl) y 
disponer los correspondientes datos. 

Programa: 


10 REM 13 
20 CLS 

30 PRINT”I3 - Programa para la clasificación 
40 PRINT TABC6)”alfabética de palabras” 

50 PRINT:PRINT:PRINT 

50 PRINT TABC11 3 "Bernd Kauial , 1BB5” 

70 GOSUB 260 

80 PRINT"Cuantas palabras se leerán en el” 

90 INPUT”desarrollo del programa ”¡n 

100 IF n-0 THEN 250 

110 CLS:DIM uiSCnl 

120 REM .en este programa n=7 

130 DATA EL,APROPIADO,ORDENADOR,PARA,USTED 

140 DATA EL,AMSTRAD CPC 464 

150 FOR i-1 TO n 

160 READ U)SC i ) : NEXT i 

170 FOR i-i TO n-1 

190 FOR J-i+1 TO n 

190 IF uiS■ i j< “ujSC J ) GOTO 210 

200 hlS-uiSC J j : wS Cj)“ujSCi):ujSCil“hiS 

210 NEXT J 

220 PRINT uuSCil 

230 NEXT i 

240 PRINT UiSCnl 

250 END 

260 REM CP Esperar 

2~0 LOCATE 7,25 

280 PRINT"Pulsar una tecla" 

290 >:$= INKEYS: IF xS-"” THEN 290 
300 CLS: RET'JRN 
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Lista de variables: 


hI $ = Campo auxl11ar 
I = Indice de control 
j = Indice de control 
n = Número de variables de cadena 
w$(I)= Las palabras o cadenas 


Descripción del programa: 

Líneas 10- 70 : Título 

Líneas 80- 90 : Entrada del número de cadenas 

Línea 100 : Ramificación al final del programa si no hay 
que leer ninguna cadena 

Línea 110 : Se borra la pantalla y se reserva espacio de 
memorI a 

Línea 120 : Comentarlo 

Líneas 130-160 : Se disponen los datos y se leen 

Líneas 170-240 : Las palabras son clasificadas por orden 
alfabético y se edita el resultado. 

Aquí clasificar significa que cada dos 
palabras son comparadas entre sí.Prlme- 
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ro se compara la primera palabra leída 
w$(I), para 1=1 con todas las demás pala¬ 
bras w$(j), para J=2...n. SI wS(1) sigue 
en el alfabeto a otra palabra w$(j), se 
Intercambian las dos palabras comparadas 
(línea 200). Después de esta operactén 
(líneas 180-210) se encuentra en primera 
posición (w$(1)> la palabra que está de - 
lante en el alfabeto. 

A continuación se Incrementa cada vez en 
1 la variable de control I, es decir que 
primero la palabra que está en segundo 
lugar w$(2) es comparada con todas las 
demás palabras (excepto con w$(1)) y, si 
procede se Intercambia, a continuación la 
palabra que está en tercer lugar, etc. 

Así se realizan todas la comparaciones 
posibles. 

Línea 250 : Final del programa 

Líneas 260-300 : Subprograma ''esperar' 1 
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Resultados del programa: 


COMPUTER AMSTRAD CPC A64 
DER APROPIADO 
DER EL 
FUER EL 

RICHTIGE ORDENADOR 
SCHNEIDER CPC 464 PARA 
SIE USTED 

Una frase correcta ordenada alfabéticamente 
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2.5 ¿Juega Vd. a la lotería primitiva ? 


Usted tiene 36 años, nació el 12.9.48 y el día 20.3 siempre 
olvida que es el aniversario de su boda. Entonces quizás 
probará Vd. su suerte semana tras semana en el juego de la 
lotería primitiva con los siguientes números: 

36, 12, 9, 48, 20, 3 

Ahora puede Vd. olvidar estos números (sólo en este orden, 
naturalmente). Probablemente tampoco le han traído mucha 
suerte. Su CPC le facilita a Vd., semana tras semana, 6 
números de la suerte. De todos modos, es problemático que 
tenga más suerte con estos "números del ordenador" que con 
su anterior combinación. En realidad, la probabilidad de un 
acierto de 6 sigue siendo la misma. Para quitarle toda 
esperanza, el ordenador le dice directamente cuántas 
diferentes posibilidades hay de escoger 6 números entre 49. 

En relación con el siguiente programa se hacen algunas 
aclaraciones matemáticas: 
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Ciertamente, no es nada problemático generar 6 números 
aleatorios entre 1 y 49(esto se realiza con la función RND) 
pero la determinación del número de posibilidades de escoger 
6 k elementos entre 49 n elementos es más complicada, ya 
que, para ello necesitamos la magnitud matemática del 
coeficiente blnomlal (léase n sobre k). 

La fórmula adecuada es la siguiente: 


lk, 


n! 


(n-k)! * k! 


Para el lector Interesado en las matemáticas, aun queremos 
mencionar aquí que el coeficiente blnomlal corresponde a los 
factores que resultan de la solución de los llamados 
binomios. Esto es: 

(a+b; - a + (^) a b + a b +...+ ( n _j) ab + “ 


Pero volvamos a la problemática del presente programa. Ya 
que con los valores n=49 y k=6, en el cálculo de facultades 
de la fórmula citada, se obtienen valores numéricos 
superiores al mayor valor representable, y tendrían como 
consecuencia el mensaje de error '’Overflow'en el 
programa se ha recortado el cociente de la fórmula: 

1 • 2 * 3 • 4 * ... * n 
1*2*3*...* (n-k) *1*2*3*... *k 

(k+1) * (k+2) * (k+3) * ... • n 
1*2*3*4*„. * (n-k) 
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SI se tiene en cuenta que O = (£«) - como fácilmente 
puede verse por la anterior fórmula de cálculo - resulta 
para n=49 y k=6 (o k=43): 

49 44 * 45 * 46 * 47 * 48 * 49 
61*2*3*4*5*6 



El objeto principal de estas aclaraciones matemáticas es 
facilitar el seguimiento de los diferentes pasos de 
programa. El programa en sí está concebido de manera que una 
modificación de la línea 190 posibilite el cálculo de 
cualquier coeficiente blnomlal (fc) . Luego, sin embargo, 
hay que modificar correspondientemente la edición del 
resultado. 


Programa: 


10 REfl 14 
20 CLS 

30 PRINT"I4 - Programa para la creación de 6 
40 PRINT TABC6)"números aleatorios entre 1 y 49,” 

50 PRINT TABC6) ”y para la determinación del" 

60 PRINT TABC 6) "numero de probabilidades de” 

70 PRINT TABC6)"escoger 6 entre 49 (primitiva) ” 

80 PRINT i'PRINT: PRINT 

90 PRINT TABC11) "Bernd Koujal, 1985" 

100 GOSUB 340 

110 PRINT”6 números aleatorios entre 1 y 49 :”:PRINT 

120 FOR i-1 TO 6 

130 x(i)”INTCRND*49+1) 

140 FOR J-l TO i-1 

150 IF xCi)-xCj) THEN 130 


29 



150 NEXT J 

170 PRINT i;".numero :”;xti3 
180 NEXT i:PRINT:PRINT 
180 n-49:k-6 

200 IF k>n THEN z=0:ne-1:GOTO 240 
210 IF n-k>k THEN k-n-k 
220 aui-n: ew _ k : GOSUB 280:z-f 
230 au~n-k:eu _ 0:GOSUB 2B0:ne-F 

240 PRINT”Hayz/ne¡"diferentes posibilidades” 

250 PRINT"de escoger B números entre 48" 

270 PRINT:PRINT:PRINT:PRINT"Fin de los cálculos":END 
280 RED UP factoriales 
230 f-1 

300 FOR i-aui TO ew+1 STEP -1 

310 f-f*i 

320 NEXT i 

330 RETURN 

340 REfl UP esperar 

350 LOCOTE 7,25 

360 PRINT”Pulse una tecla” 

370 xS-INKEYS 

380 IF xS-”" THEN 370 

380 CLS:RETURN 
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Lista de variables: 


aw = Valor Inicial del bucle 
ew = Valor final del bucle 

f = Producto en el subprograma ''facuItades 11 

I = Indice de control y factor en el subprograma 
' 1 facuItades 1 ' 

j = Indice de control 

k = Número de elementos a escoger 

n = Número de elementos 

ne = Denominador en la fórmula de cálculo para ( ) 

x(I) = Números aleatorios entre 1 y 49 
z = Numerador en la fórmula de cálculo para ( ) 


Descripción del programa: 

Líneas 10-100 : Título 

Líneas 110-180 : Se determinan y se editan 6 números alea¬ 
torios entre 1 y 49. 

En las líneas 140-160 se compara cada núme¬ 
ro aleatorio con los números ya editados, y 
en el caso de que se presente una Igualdad, 
se forma un nuevo número aleatorio sin In¬ 
crementar las variables de control. 
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Línea 190 : Las variables n y k son ocupadas con valores 


Línea 200 : SI k>n, ( ) = 0. En este caso tiene lugar una 

ramificación a la edición de resultados. 

Línea 210 : SI n-k>k, k se equipara a n-k con el fin de slm- 
stmpllflcar el cálculo (véase arriba) 

Líneas 220-230: Se calculan los numeradores y denominadores 
de la fórmula abreviada 

Líneas 240-260: Edición del resultado 

Línea 270 : Final del programa 

Líneas 280-330 : Subprograma 1 'facultades'' 

Las facultades solamente se calculan cuando 
la variable ew es Igual a 0. Por lo demás 
se forman los productos que se quieran. 

Líneas 340-390 : Subprograma ''esperar'' 


Resultados del programa: 

La edición de resultados podría verse así: 
6 números aleatorios entre 1 y 49: 

1. número : 32 

2. número : 5 
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3. número : 39 

4. número : 41 

5. número : 49 

6. número : 7 

Hay 13983616 diferentes posibilidades de escoger 6 números 
entre 49. 

Así pues, solamente podemos desearle mucha suerte. 
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2.6. Publicidad de escaparate 


SI tiene usted un negocio y, llegado el caso, está dispuesto 
a prescindir de su CPC, entonces puede ponerlo en el 
escaparate. Su esposa, probablemente, se alegrará de ello 
(como se comprenderá, no tiene que pasar usted todo su 
tiempo libre frente al ordenador o ...) 

Naturalmente, no pondrá su CPC en el escaparate porque sí, 
para mostrar a la gente que posee usted un ordenador, sino 
que hará pasar un programa especial de propaganda. Los 
soportes ópticos publicitarios, al fin y al cabo, son 
siempre un medio especial de atracción. 

La configuración de un programa para la publicidad de 
escaparate tiene que ser Interesante y llamativa, ya que se 
trata de que una persona que pase por delante del escaparate 
se detenga para observar más exactamente los mensajes 
publicitarios. Para conseguirlo, es aconsejable trabajar con 
colores y escritura móvil. También se pueden conseguir 
buenos efectos con una mezcla de gráficos y líneas de texto. 
Para ello sirven las Instrucciones TAG y TAGOFF. Se podría 
pensar, por ejemplo, crear, con la ayuda del programa del 
capítulo 8.2, un gráfico Interesante y luego Introducirlo en 
un programa de propaganda. En beneficio de la sencillez, el 
programa entero del capítulo 8.2 podría servir entonces como 
subprograma. 
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En el programa de ejemplo de este capf+ulo, por el 
contrario, se presenta una solución más fácil. Después de la 
edición, en formato grande, de los números 1,2 y 3 (rojo 
sobre blanco), aparece en la pantalla tres veces el texto 
publicitario, primero también rojo sobre blanco, luego 
azul-rojo parpadeando y finalmente azul-rojo parpadeando 
sobre el fondo parpadeante blanco-amarillo. Los números 1,2 
y 3 se definen cada vez análogamente a los entramados que se 
citan en su manual de Instrucciones. Mientras que allí los 
números, al Igual que cualquier otro carácter, son 
representados con un modelo de punto, aquí los números de 
formato grande se componen de rectángulos Individuales. 
Estos rectángulos se definen por medio de la Instrucción 
WINDOW y se rellenan con el color fijado para el fondo. El 
control de tiempo del transcurso del programa se realiza con 
las Instrucciones TIME y AFTER. Mientras los números de 
formato grande aparecen cada vez medio segundo en la 
pantalla, el espectador tiene cada vez cinco segundos para 
leer el mensaje. El usuario puede, además. Indicar cuánto 
tiempo en total debe funcionar el programa. Ha de tenerse 
en cuenta es que, después de llamar un subprograma con el 
AFTER-statement, el pase del programa prosigue hasta que ha 
transcurrido el tiempo Indicado. 

El texto publicitario del presente programa puede, 
naturalmente, modificarse a voluntad. También es posible 
solamente hacer ''correr 1 ' la última linea. Por ejemplo, 
podría ser del todo Interesante poner en movimiento, una 
tras otra, varias líneas del texto. En todo caso, vale la 
pena ejercitarse con diversas variantes. 
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Programa 


10 REn 15 
20 CLS 

30 PRINT "15 - Publicidad en escaparate” 

40 PRINT:PRINT:PRINT:PRI NT:PRINT:PRI NT 
50 PRINT TABC91 "Bernd Kowal, 1585" 

60 GOSUB 870 

70 PRINT”Cuanto tiempo debe durar el espot?” 

80 PRINT:INPUT”Horas”¡st 

90 PRINT:INPUT’Tlinutos"; mi 

100 PRINT:INPUT”Segundos "¡se 

110 ze-st»3600+mi»60+se+TinE/300 

120 INK 2,26:PAPER 2:BORDER 26 

130 INK 1,0:INK 0,26:INK 15,1,3:INK 14,26,24 

140 CLS 

150 FOR 1-1 TO 7 
160 PAPER #i , 3 
170 NEXT i 

180 LüHILE TINE/300<ze 
190 GOSUB 270 
200 AFTER 25,1 GOSUB 340 
210 AFTER 50,2 GOSUB 450 
220 AFTER 75,3 GOSUB 560 
230 zl-TIHE 

240 IF TI!1E<zi + 1000 THEN 240 

250 UEND 

260 HODE 1:END 

270 REn el numero 1 

280 nODE 1 

290 WINDOU #1,12,15,6,8 

300 WINDOU #2,16,23,3,20 

310 WINDOU #3,B,31,21,23 

320 FOR i — 1 TO 3:CLS #i:NEXT i 

330 RETURN 

340 REn el numero 2 

350 CLS 

360 WINDOU #1,8,15,6,8 

370 WINDOU #2,12,27,3,5 

380 WINDOU #3,24,31,5,11 

390 WINDOU #4,12,27,12,14 

400 WINDOU #5,8,15,15,20 

410 WINDOU #6,8,31,21,23 

420 WINDOU #7,24,31,18,20 

430 FOR 1=1 TO 7:CLS #i:NEXT i 

440 RETURN 

450 RE.1 el numero 3 
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4B0 CLS 

470 UINDOW #1,8,11,6,0 
4B0 UINDOW #8,12,27,3,5 
490 UINDOW #3,24,31,6,11 
500 UINDOUJ #4,16,27,12,14 
510 WJNDOW #5,24,31,15,20 
520 WINDOU #6,12,27,21,23 
530 UINDOW #7,8,15,18,20 
540 FOR l-l TO 7:CLS #i:NEXT i 
550 RETURN 

560 REM oferta especial 
570 nODE O 
500 z2-TItIE 
590 GOSUB 660 

600 IF TinE<z2+1500 THEN 600 
610 Z3-TIME:PEN 15:CLS:G0SUB 660 
620 IF 11ME<Z3+1500 THEN 620 

630 zH-TIME:POPER 14:BORDER 26,24:CLS:GOSUB 660 

640 IF TIME<z4+1500 THEN 640 

650 PEN 1:PAPER 2:BORDER 26:RETURN 

660 PRINT” Oferta especial ":PRINT:PRINT:PRINT 

670 PRINT” Omstrad CPC 464PRINT:PRINT:PRINT 

680 PRINT” con MonitorPRINT 

690 PRINT” y":PRINT 

700 PRINT” Cassette":PRINT:PRINT:PRINT 
710 PRINT” al precio de PRINT:PRINT 
720 PRINT T0BC71” 50000,-Ptas . " 

730 aS=” No es esto estupendo? " 

740 Z5-TIME 

750 IF TIME<Z5+300 THEN 750 
760 FOR í-l TO 20 
770 bS-RIGHTSCa$,i) 

780 LOCOTE 1,23 
790 PRINT b$; 

800 NEXT í 

810 FOR í-l TO 20 

820 bS-LEFT$ia$,20-i) 

830 LOCOTE 1,23 
840 PRINT bS; 

050 NEXT i 
860 RETURN 

870 REM subprograma esperar 

8B0 LOCOTE 5,25 

890 PRINT”Pulse una tecla ! ” 

900 xS-INKEYS 

910 IF xS-”” THEN 900 

920 CLS:RETURN 
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Lista de variables: 


a$ = Cadena en la cual se guarda el texto "móvil" 
b$ = La cadena a$ "ejecutada" 

I = Variable de control 
mi = Minutos 
se = Segundos 
st = Horas 



ze = Límite de tiempo en segundos para la ejecución de todo 
el programa 


Descripción del programa: 

Líneas 10-60 : Título 

Líneas 70-100 : Entrada de la duración de la ejecución del 
programa 
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Línea 110 : Cálculo del límite de tiempo en segundos para 
la entera ejecución del programa. La fun¬ 
ción TIME da aquí el tiempo que ha trans¬ 
currido desde la conexión del dispositivo 
(unidad: 1/300 de segundo). 

Línea 120 : El color de fondo y del borde se hace blanco lu¬ 
minoso 

Línea 130 : Números PEN o números PAPER son asociados a co¬ 
lores 

Línea 140 : Se limpia la pantalla 

Líneas 150-170 : Se fija el color de fondo para las áreas de 
pantalla todavía por definir (rojo claro) 

Líneas 180-250 : Llamada de los subprogramas 

Mientras no se haya alcanzado el límite 
de tiempo se ejecutan las Instrucciones de 
las líneas 190-240. 

190-240 : Después de los tiempos Indica¬ 
dos se llaman los diferentes 
subprogramas. Debido al bucle 
de espera del subprograma Ofer¬ 
ta Especial, en la línea 190 se 
puede prescindir de la Instruc¬ 
ción AFTER. 

230-240 : Bucle de espera dependiente del 
tiempo; Impide que las líneas 
190-220 sean trabajadas antes 
de que se hayan llamado los 
subprogramas 

Línea 260 : Se modifica el modo de pantalla (40 caracteres 
por línea) ya que en el subprograma Oferta 
Especial se trabaja con 20 caracteres 
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por línea. Al mismo tiempo se limpia la 
pantalla y se alcanza el final del pro¬ 
grama. 

Líneas 270-330 : Subprograma para la edición del número 1 
en formato grande 

270-280 : Comentarlo y modificación del 
modo de pantaII a 

290-310 : Se definen ventanas de panta- 
la rectangulares que, compues¬ 
tas, representan el número 1 
320 : Las ventanas de pantalla definidas 
son reí leñadas con el color 
rojo claro (compare con líneas 
150-170) 

330 : Salto afuera del subprograma 

Líneas 340-550 : Subprogramas para la representación en 
formato grande de los números 2 y 3. La 
forma de proceder corresponde a la del 
último subprograma. 

Líneas 560-860 : Subprograma "Oferta Especial" para la 
edición del texto publicitario 
560-570 : Comentarlo y cambio al modo de 
80 caracteres 

580-650 : Dependlentemente de las varia¬ 
bles de limitación de tiempo 
z2, z3 y z4 tiene lugar tres 
veces un salto al subprograma 
de las líneas 660-860 para la 
edición del texto.En la segun¬ 
da y tercera ramificación en 
las líneas 610 y 630 respecti¬ 
vamente se modifica el color 
de fondo o de la escritura y 
del fondo ( Incluyendo el boi— 
de).En la línea 650 se ramifi¬ 
ca de vuelta al programa prin¬ 
cipal. 
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660-860 : Subprograma para la edición del 
texto publicitario. Después de 
la edición del texto principal 
(líneas 660-720) y de la ocupa¬ 
ción de las variables a$ ( lí¬ 
nea 730), sigue un bucle de es¬ 
pera dependiente del tiempo 
(líneas 740-750). A continua¬ 
ción se edita en las líneas 760 
-850 el contenido de la cadena 
a$ ejecutado y "corriendo". 

Líneas 870-920 : Subprograma "Esperar" 
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2.7. F1I6n de Ideas 


- Cálculo del argumento de una nueva mayoría con la re¬ 
gla de tres simple directa 

- Crear tablas y estadísticas 

- Representación de curvas y diagramas ( pasteles, vigas 
gas, etc.) 

- Dibujo de cualquier función 

- Blorrltmo, análisis blorrítmlco de pareja 

- Astro logia y horóscopo 

- Tests de personalidad o tests 10 (coeficiente de Inte- 
11 gene la) 

- Evaluación de cuestionarlos 

- Gestión de direcciones, gestión de asociados 

- Fichero de vocabulario 
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Averiguaciones de todo tipo 


Bancos de datos para las aplicaciones que se deseen 

Gestión escolar: elección de curso, listas de cursos 

Creación de calendarlos 

Cursos de escribir a máquina 

SIntettzadores de Idiomas 

Representación de planos de distribución 

y muchas cosas más 
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3. COCHE Y ORDENADOR 


3.1 Consideración preliminar 


¿ Es usted también una de las muchas personas de nuestro 
país que poseen un coche ? SI no es así, no hojee las 
páginas que siguen a continuación. Los programas de este 
capítulo son bien Interesantes. Por un lado se presenta la 
utilización Interactiva de su dispositivo de cassette o de 
disco, y por el otro puede usted aplicar el programa para la 
optimización del trayecto del viaje si, por ejemplo, planea 
una viaje en coche. 

Vamos a explicar aquí brevemente el concepto 
' 1 Interactlvo''. Nos dice que desde el programa se accede a 
la memoria externa de la unidad de cassette o de dlskette, 
para escribir en ella o para leerla. Así pues, puede usted 
asegurarse Informaciones para largo tiempo y mirarlas o 
ampliarlas en cualquier momento. En el transcurso de este 
libro encontrará aún algunos programas que utilizan el 
dispositivo de cassette o de dlskette de esta forma y 
manera. 
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3.2. Consumo de gasolina - controlado a largo plazo 


En el programa de este capítulo las Informaciones a entrar 
se componen del consumo de gasolina de su coche y de la 
correspondiente fecha y la medición. Aquí,naturalmente, no 
tiene que calcular usted mismo su consumo para 100 Km. Como 
es lógico, basta Indicar los kilómetros recorridos y la 
cantidad absoluta de combustible consumido. La conversión a 
litros consumidos por cada 100 kilómetros tiene lugar en la 
ejecución del programa. Y en el caso de que haya olvidado 
qué aspecto tiene una fórmula de este tipo, aquí la tiene 
usted: 


consumo absoluto * 100 

Consumo en 100 Km. = - 

kIIómetros recorrI dos 

El resultado de este cálculo (naturalmente, también es 
posible realizar varios cálculos uno tras otro) lo puede 
guardar luego. Junto con la respectiva fecha, por medio de 
su dispositivo de cassette o unidad de disco. Naturalmente 
también puede usted leer Informaciones y completar esta 
serle de Informaciones (más exactamente: fichero). Otro paso 
consiste en la posibilidad de edición de todas las 
Informaciones, para quizás poderlas reunir en una 
'' tendencia de consumo" actual. Entonces también se calcula 
el consumo medio y se edita el correspondiente resultado. 
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Todavía una palabra sobre el desarrollo del programa: 

La posibilidades de selección para el usuario del programa 
tienen lugar, por regla general, mediante el llamado menú de 
selección. En este programa las posibilidades de elección 
del usuario están resueltas de otra manera, o sea, por medio 
de un número de preguntas que han de ser contestadas con 
"s" (si es sí) o con ''n' 1 (si es no). Aquí hay que tener 
en cuenta que una vez se haya entrado una '’n" ya no puede 
ser anulada (a no ser que se Interrumpa el programa pulsando 
dos veces la tecla ESC y luego se utilice la Instrucción 
GOTO como comando, para que no se pierdan los datos). Como 
se sabe, una nueva ejecución del programa tiene como 
consecuencia la pérdida de los datos entrados previamente. 
Una técnica de consulta de este tipo, a primera vista, 
parece ser menos cómoda que la técnica del menú. No 
obstante, tiene la ventaja de que el usuario olvida con 
menos -facilidad pasos Importantes del programa - como, por 
ejemplo, el asegurarse datos - ya que a las respectivas 
preguntas tiene que contestar concretamente con ''s' 1 o 
"n" para proseguir la ejecución del programa. 


Programa: 


10 RE11 IE 
20 CLS 

30 PRI!'JT"I6 - Programa para el control a largo” 
tO PRINT TftBi6)"plazo de su consumo de gasolina 
50 PRINT:PRINT:PRINT 
BO PRINT TABClir’Bernd Kouial , 1385” 

70 GOSUB 640 

80 Din vClOOO),taClOOO),moC1000),jaClOOO) 

90 PRINT’’Hay que leer los” 

100 INPUT"datos almacenados Cs/n) ”;aS:PRINT 

110 IF a$-”n” THEN 180 

120 IF a$<>”s" THEN 90 

130 OPENIN "Consumoi“l 

140 INPUT #9,vCi),taCi),motil,jaCi) 

150 IF EOF—1 THEN 170 
160 i-i+l:G0T0 140 
170 CL05EIN 

180 CLS:PRINT”Hay que entrar” 

190 INPUT"nuevos valores Cs/n) ”¡a$:PRINT:PRINT 
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200 IF aS-”n” THEN 370 
210 IF aSO ”s” THEN 1B0 
220 i-i+1 

230 INPUT'’í<ilometros recorridos "¡gkm:PRINT 

240 INPUT"Consumo de gasolina en litros ”¡bv:PRINT 
250 PRINT:PRINT”Fecha :”:PRINT 
250 INPUT”Dia ”;taCil 

270 INPUT”Mes "¡moCi) 

280 INPUT”ftnyo ”;jaCi J :PRINT 

230 PRINT:vCi)“bv*100/gkm 

300 PRINT”E1 consumo en 100 kilómetros :”:PRINT 
310 PRINT,USING ”##.##";vCiPRINT” Litros”:PRINT 
320 PRINT:PRINT”Hay que entrar” 

330 INPUT”mas valores Cs/n) ” ¡ a$ 

340 IF aS-”n” THEN 370 
350 IF a$<>”s” THEN 320 
360 CLS:GOTO 220 

370 CLS: PRINT”Hay que almacenar todos los” 

380 PRINT”valores de consumo incluyendo los que” 
390 PRINT”se hayan podido leer antes con la ” 

400 INPUT"correspondiente fecha (s/n) ”¡a$ 

410 IF aS-”n” THEN 480 
420 IF aS<>”s” THEN 370 
430 OPENOUT "Consumo.” 

440 FOR J-l TO i . 

450 PRINT #9,vCj),taCj) 1 moCj;> 1 jaCj;> 

450 NEXT J 
470 CLOSEOUT 

4B0 CLS:PRINT"quiere usted ver” 

490 INPUT"todos valores (s/n) ”¡aS 
500 IF aS-”n” THEN 630 
510 IF aS<>”s” THEN 480 

520 CLS:PRINT” Consumo",TABC28)"Fecha”:PRINT 
530 FOR s-1 TO i 

540 PRINT¡USING ”##.##”;vCs);:PRINT” Litros ", 

550 PRINT ¡USING taCsl. 

550 PRINT ¡USING moCs), 

570 PRINT ¡USING ”##”¡jaCsl 

580 IF S-15 THEN GOSUB 540 

530 sv-sv+vCsl:NEXT s 

600 PRINT:PRINT”Esto es un consumo” 

610 PRINT"medio de : "¡USING sv/i¡ 

620 PRINT” Litros” 

630 PRINT:PRINT:PRINT:PRINT”Fin.del programa”:END 

640 REN UP subprograma esperar 

650 LOCATE 7,25 

660 PRINT”Pulse una tecla” 

670 xS-INKEYS:IF x$-”” THEN 670 
680 CLS:RETURN 
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Lista de variables: 


a$ = Cadena de contestación (s/n) 
bv = Consumo absoluto de gasolina 
gkm = Kilómetros conducidos 
I = Indice de control 
j = Indice de control 
jad) = Año 
mo(I) = Mes 

sv = Campo de suma para v(I) 
ta(I) = Día 

v(I) = Consumo en 100 kilómetros 


Descripción del programa: 

Líneas 10- 70 : Título 

Línea 80 : Se reserva espacio para las variables Indexadas 

Líneas 90-120 : Leer la primera pregunta 

Esta pregunta (al Igual que las pregun¬ 
tas siguientes) es editada repetidamen¬ 
te si no se entra nl "s" ni "n". SI se 
entra "n" se ramifica a la pregunta si¬ 
guiente (línea 180). 
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Línea 130 : Se abre el fichero de entrada "consumo de ga¬ 
solina" y el índice de control I se equipara a 

1 . 

Línea 140 : Se leen las Informaciones almacenadas 

Línea 150 : SI se ha llegado al final del fichero ( luego 
EOF = -1), se ramifica a la línea 170 

Línea 160 : El índice de control I se Incrementa en 1 y se 
ramifica a la línea 140 para la lectura de más 
datos 

Línea 170 : Se cierra el fichero de entrada 

Líneas 180-210 : Entrar la segunda pregunta 

Línea 220 : Se Incrementa el índice de control I 

Líneas 230-280 : Se pide la cantidad de kilómetros recorri¬ 
dos, el consumo absoluto de gasolina y da¬ 
tos relativos a la fecha 

Líneas 290-310 : Se calcula el consumo en 100 kilómetros y 
se edita exactamente el resultado con dos 
cifras decimales 

Líneas 320-360 : Consulta relativa a la segunda entrada, 
limpieza de la pantalla y, si procede, ra¬ 
mificación a la línea 220 

Líneas 370-420 : La tercera pregunta "asegurar" (las líneas 
320-360 pertenecían, por asi decirlo, a la 
segunda pregunta) 

Líneas 430-470 : Se abre el fichero de entrada "consumo de 
gasolina", las Informaciones son guardadas 
en periféricos ( cada vez están diversos 
valores I en la memoria de trabajo del or¬ 
denador ) y el fichero de salida se cierra 
de nuevo 
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Líneas 480-510 : La cuarta pregunta ''resultados' 1 

Línea 520: Edición del título de la tabla 

Líneas 530-590 : Los valores de consumo son editados forma¬ 
teados con la correspondiente fecha. Al 
cabo de 15 ediciones tiene lugar un salto 
al subprograma esperar, ya que de lo con¬ 
trario los resultados se saldrían por el 
borde superior de la pantalla. En el cam¬ 
po sv ( línea 590 ) se suman los diversos 
valores de consumo, para, más tarde, po¬ 
der calcular la media aritmética de todos 
los valores de consumo. 

Líneas 600-620 : Cálculo de la media aritmética y edición 
del resultado 

Línea 630 : Final del programa 

Líneas 640-680 : Subprograma ''esperar'' 


Resultados del programa: 

SI después del Inicio del programa se leen y/o entran 
valores (y eventual mente , como es natural, se guardan), la 
edición de los resultados podría verse en la pantalla de la 
siguiente manera: 

Consumo Fecha 

8,05 litros 1.2.85 
8,55 litros 9.2.85 
8,13 litros 20.2.85 
7,81 litros 1.3.85 

Esto es un consumo 
medio de 8,14 IItros 
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3.3. Optimización del trayecto del viaje 


Y, de nuevo, se encuentra el coche en el punto central de 
nuestras consideraciones. Se trata otra vez de combustible o 
energía, ahora, sin embargo, de forma Indirecta. 

El punto central de este capítulo es la planificación de un 
viaje. Se Indican varios lugares a los cuales quiere Ir 
usted (o tiene que Ir si está ocupado profesional mente en el 
servicio exterior) y las distancias entre los mismos. Su CPC 
le dirá luego a qué lugares, uno tras otro, tiene que 
dirigirse usted con el fin de recorrer la menor cantidad 
posible de kilómetros. Así pues, se trata de emplear la 
energía de su coche, y también la suya, de la forma más 
racional. 

Pero, de todos modos, no es tan sencillo encontrar un 
algoritmo adecuado (proceso calculatorio que transcurre de 
acuerdo con un determinado esquema que se va repitiendo) 
para la solución de este problema. Quizás dirá usted que su 
ordenador debiera tener en cuenta todas las posibilidades de 
ordenación. Y eso también sería correcto en el caso de que 
se entraran pocos lugares. Por ejemplo, si se entran 3 
lugares, a,b y c (el lugar de partida no se varía aquí) hay 
dos diferentes posibilidades de ordenación: a-b-c y a-c-b. 
SI se entran 4 lugares, a,b,c y d, hay 6 diferentes 
posibilidades de combinación, o sea: a-b-c-d, a-b-d-c, 
a-d-b-c, a-d-c-b, a-c-b-d y a-c-d-b. 
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Estas ordenaciones se diferencian únicamente en la posición 
de los elementos (o lugares). El número de ordenaciones de n 
elementos, es decir, el número de diferentes posibilidades 
de llegar a los n lugares entrados es Igual a n! (n! = 1 * 
2 * 3*... *n). SI, por ejemplo, quiere usted calcular 10!, 
tendrá: 10! = 3628800. Por lo tanto, considerar 
verdaderamente todas las posibilidades tendría como 
consecuencia, si se entraran varios lugares, unos tiempos 
enormes de cálculo que, con toda seguridad, los haría 
Impracticables. 

Por regla general, se llega también a un resultado razonable 
si se viaja sucesivamente de un lugar al siguiente que se 
encuentre más próximo. SI, saliendo de Hamburgo, queremos 
visitar Hannover, Duesseldorf, Colonia, Frankfurt y Munich, 
conseguiremos muy fácilmente la ordenación correcta HH - H - 
D - K - F - M. Pero ahora puede ser que, p.ej., 4 lugares 
estén distribuidos en el territorio como sigue: 


Partiendo de A llegaríamos a la ordenación A - B - C - D, 
aunque la ordenación A-C-B-Des más favorable. 

Por ello, en el siguiente programa se tiene en cuenta la 
posibilidad de que cada vez, es decir, a cada supeditación 
de un lugar a los lugares colocados ya en un orden, puede 
ser más favorable no Ir primero al lugar más próximo, sino 
al segundo lugar más cercano. 

En la ejecución del programa se comparan entre sí n-1 (n = 
número de lugares entrados. Incluso el lugar de partida) 
trayectos de viaje y se edita como resultado la alternativa 
más favorable. 
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Referido al ejemplo anterior, se comprobarían las siguientes 
ordenaciones: 


A - B - C - D 
A - C - B - D 
A - B - D - C 

Así pues, el lugar que está en segunda y tercera posición no 
es cada vez el lugar más cercano sino el segundo más 
próximo. 

Este algoritmo, por regla general, hallará el recorrido más 
favorable y le librará así - especialmente si hay que viajar 
a muchos lugares - del pesado trabajo de descubrir, 
escribiendo a mano, la mejor ruta. 


Programa: 


10 REI1 17 
EC CLS 

30 PRINT"I7 - Programa para la optimización de" 

40 PRINT TAE161'"les trayectos de viaje” 

50 PRIMT:PRIMT:PRINT 

50 PRINT TABCllH "Eernd Koual , 19B5” 

70 GOSUE SEO 

BO PRINT"Cuantos logares en total ,hay que” 

30 INPUT"tener en cuenta ”;n:PRINT 
100 Oír: hSCnl, sSCni , oSCn.i , eCn, nj , FsCnj 
110 PRINT”Entre el nombre de un lugar.” 

ISO PEINT"c bien su identificación :”:PRINT 

130 INPUT”Prímero el lugar de partida ”¡oSC1 j :PRINT 

140 FOR í-E TO n 

150 PRINT ij:INPUT". nombre de lugar ";oSCil 
160 NEXT i:CLS 

170 PRINT”Indique las siguientes distancias" 

1B0 PRINT"en kilómetrosPRINT 
130 FOR í-l TQ n-i 
ECO FOR j-i+1 TO n 
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210 PRINT DSCil; —"¡oSCjl, : INPUT eCl.JÍ 
220 eCj,i3-eCi,j) 

230 NEXT J:NEXT i:CLS 

240 FOR u-1 10 n-1 

250 FOR i-2 TO n:sSCií-”":NEXT i 

260 l-l:sSCÍ)-0SCi):l-2 

270 kui-10'30 

280 FOR J-1 TO n 

230 FOR k-1 TO n 

300 IF sSCkl-oSCj} THEN 330 

310 NEXT k 

320 IF eCí.jXkui THEN kui-eC i , J 3 : q=J 
330 NEXT J 

340 IF u-1 AND kr=0 THEN eCi,q1-10*30:kr-1:GOTO 270 
350 sSCll-oSCql 
360 fsCul-fstul+kw 

370 IF l<n THEN 1 -q:1=1+1:GOTD 270 

380 IF u>l THEN 410 

330 FOR i = l TO n:h$ <i1=s$ Ci1:NEXT i 

400 fs=fSlul:GOTO 440 

410 IF fs(ul>=fs THEN 440 

420 FOR 1-1 TO n: h$': 1 1-sSC 1 1 : NEXT i 

430 fs-fsCuí 

44b kr-0:NEXT u 

450 PRINT"E1 siguiente trayecto es el optimo :"¡PRINT 
460 FOR i—1 TO n 

470 IF i-n THEN PRINT hS!.ij:GOTa 43C 
480 PRINT hSCl);; 

430 NEXT i 

500 PRINT: PRINT "Esto sen " ¡ f s ; "i:i lcnetrcs . " 

510 PRINT:PRINT:PRINT"Fin de les calculesEND 

520 RE!”! UP subpregrama esperar 

530 LOCATE 7,25 

540 PRINT"Pulse una tecla ! " 

550 xS-INKEYS 

560 IF xS-"" THEN 550 

570 CLS:RETuRN 
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Lista de variables: 


e(I,j) = La distancia entre dos lugares 

fs = Número de kilómetros para el trayecto óptimo 

fs(I) = Número de kilómetros para un trayecto alternativo 

h$(I) = Los lugares en el orden óptimo 

I = Indice de control 

j = Indice de control 

k = Indice de control 

kr = Variable de control para la asignación del segundo 
lugar más próximo 

kw = Distancia más corta de un lugar en relación a un lu¬ 
gar todavía no ordenado 

I = Variable de control para las correspondientes ordena¬ 
ciones n-1 que se realizan (para cada trayecto altei— 
nativo) 

n = Número de lugares 

o$(l) = Los nombres de las localidades entradas 

q = Indice para la ordenación del lugar más próximo o el 
segundo más cercano 

s$(I) = Los lugares para cada trayecto alternativo, colo¬ 
cados en un orden 

u = Variable de control para los n-1 trayectos alternativos 
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Descripción del programa: 


Líneas 10- 70 : Título 

Líneas 80- 90 : Se entra el número de lugares 

Línea 100 : Se reserva espacio de memórla para las varia¬ 
bles Indexadas 

Líneas 110-160 : Entrada de los nombres de los lugares 

Líneas 170-230 : Entrada de las distancias 

En la línea 220 se equipara una distancia 
e(l,J) a una distancia no entrada e(J,I), 
ya que en el bucle de las líneas 280-330 
la variable de control J, independiente¬ 
mente de la magnitud de las variables t, 
corre de 1 hasta n. 

Línea 240 : Apertura del bucle de programa para los n-1 
trayectos alternativos 

Línea 250 : La variable s $ (I) es "liberada" de las orde¬ 
naciones anteriores para el nuevo trayecto al- 
ternatlvo 

Líneas 260-270 : Ocupación de las variables l,1,s$d) y 
kw (s$(1) = lugar de partida oíd). Para 
la variable kw se toma un valor muy alto 
escogido arbitrariamente (10 / '30), que no 
debe ser alcanzado al entrar los datos 
de las distancias. 

Líneas 280-330 : Se busca la distancia más pequeña de un 
lugar I en relación a un lugar j al cual 
todavía no se ha viajado y se guarda 
temporalmente en el campo kw. En el cam¬ 
po q se registra qué lugar se asignó a 
j. En las líneas 290-310 se averigua si 
él lugar j actual ya ha sido ordenado o 
si ya se ha viajado al mismo. 
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Línea 340 : En la primera vuelta se buscan las distancias 
más cortas (luego u=1 y 1 siempre mayor que u). 
Las vueltas siguientes se caracterizan porque 
en posiciones que varían continuamente ( en de¬ 
pendencia de u y 1 ) las distancias más cortas 
halladas e(I,q) se equiparan a lO^O para lue¬ 
go buscar de nuevo la distancia más corta ( na¬ 
turalmente, ésta es, entonces, la segunda más 
corta, ya que la distancia más corta fue ocupa¬ 
da con el valor 10~30). La variable de control 
kr sirve para pasar este proceso solamente una 
vez. 

Líneas 350-360 : El lugar encontrado es guardado temporal¬ 
mente en el campo s$(1) y la distancia en 
kilómetros hallada se añade al valor que 
que hay en el campo fs(u). 

Línea 370 : SI 1<n se prosigue el proceso de ordenación se¬ 
gún el trayecto alternativo 

Líneas 380-400 : En la primera vuelta ( entonces u=1 ) el 
trayecto encontrado es considerado como 
óptimo para fines posteriores de compara¬ 
ción (línea 410) (ocupación de las varia¬ 
bles h$(I) y (fs) 

Líneas 410-430 : El número de kilómetros de los trayectos 
alternativos hallados es comparado con el 
correspondiente valor de la vuelta prece¬ 
dente. LLegado el caso, las variables 
h$(I> y fs son ocupadas con nuevos valo¬ 
res. 
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Lfnea 440 : La variable de control kr se equipara a 0 y 
tiene lugar una nueva vuelta (a partir de la 
línea 240) 

Línea 450-500 : Edición de resultados 
Línea 510 : Final del programa 
Líneas 520-570 : Subprograma "espera" 


Resultados del programa: 

Partamos de 6 localidades con la siguiente situación 
geográfica (D es el lugar de partida) 


B 


D C 


F 


A 


E 
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y de las distancias exactas 



y así, después de las correspondlentes entradas, tenemos: 

El siguiente trayecto es óptimo: 

D-A-F-E-C-B 
Son 104 kilómetros. 

En comparación con los programas precedentes, llama la 
atención el elevado tiempo de cálculo. Si quiere hacer 
funcionar este programa para relativamente muchas entradas 
de lugares, tendrá que aportar una poco de paciencia. 
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3.4. Control estricto de los gastos del coche 


En el capítulo 7.2 de este libro encontrará usted un 
programa concebido de forma general para los gastos 
domésticos de la casa. Dado que allí puede usted formar 
Incluso categorías a las cuales luego se les asigna 
diferentes tareas, se puede también utilizar este programa 
para el área de los gastos del coche. Como categorías son 
adecuadas, por ejemplo, las siguientes: seguro. Impuestos, 
combustlblea, reparaciones, cuidados y manutención, 
amortizaciones, etc. SI quiere usted utilizar este programa 
exclusivamente para los gastos de su coche, convendrá hacer 
una ampliación del programa, relativa a los gastos por 
kilómetro recorrido. Existen diversas posibilidades de 
colocar en este programa datos relativos a los kilómetros: 

1) Entrada de kilómetros cuando sea necesario, por medio de 
una parte de programa, que se puede llamar por menú 

2) Entrada del estado de kilómetros a cada desembolso de di¬ 
nero 

3) Al entrar un espacio de tiempo para la parte de programa 
"cálculos" se pide un valor para los kilómetros recoi— 
rldos y se editan Inmediatamente a continuación los gas¬ 
tos por kllómetro 
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La primera posibilidad tiene el Inconveniente de que en la 
parte de programa ''cálculos" no siempre se entran los 
kilómetros verdaderamente recorridos, ya que el estado de 
los kilómetros no se actualiza automáticamente después de 
cada entrada. La segunda posibilidad no tiene, ciertamente, 
este Inconveniente, pero, en cambio, es muy Improbable que 
siempre tenga usted en la cabeza la situación de kilómetros 
de su coche. La tercera posibilidad es la que, desde el 
punto de vista técnico de programación, más fácilmente se 
puede Insertar y además no posee los inconvenientes 
Indicados. En este caso solamente tiene que anotarse usted 
de otra manera el valor de los kilómetros recorridos. 
Precisamente en relación a los gastos del coche es, de todos 
modos, razonable Indicar en la parte de programa 
"cálculos" los espacios de tiempo anuales o semestrales, 
ya que, por ejemplo, los Impuestos y los Importes del seguro 
solamente se pagan anual o semestraImente. 


Para cambiar, de esta manera, el programa de los gastos de 
la economía doméstica, tiene que Insertar usted las 
siguientes líneas de programa: 


1395 PRINT:PRINT:PRINT”cuantos km. ha hecho usted' 
1400 INPUT”en este espacio de tiempo” 

1514 PRINT: PRINT: PRINT"refendo 'a los kilómetros” 

1515 PRINT"resultan unos gastos de” 

1515 PRINT INTCsu/km*100+0.5)/100;”dm por km.” 

1517 GOSUE 2060 


Aquí solamente se sobreescribe la línea 1400. No obstante, 
del comentarlo "yo calculo" también se puede prescindir 
fáclImente. 

Por lo demás hay que desearle que se divierta usted mucho 
con la utilización del programa. Y ... no se caiga de la 
silla si descubre usted lo mucho que se gasta para su 
vehículo... 
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3.5. Filón de Ideas 


- Simulación del viaje de un Porsche 935 de una potencia 
de 700 PS por el nuevo circuito de Nuerburg 

- Documentación exacta del desarrollo de una carrera (el 
paso de los coches puede concebirse aquí con barreras 
de luz) 

- Coches por el ordenador (diseño, bancos de prueba con¬ 
trolados electrónicamente, pruebas continuas en el si¬ 
mulador) 

- Regulador de tráfico (superación de situaciones de cli— 
cuIación ) 

- Autoescuela: alumnos, horas, libro de caja y libro dia¬ 
rio 

- Banco de datos para datos de comparación del coche (ve¬ 
locidad máxima, aceleración, resultados de test, etc.) 

- Pruebas de conocimientos de lugares con el ordenador 

- y muchas otras cosas 
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4. Dinero y crédito 


4.1. Advertencia preliminar 


Cuando se trata de dinero, se acaba para muchos la broma y 
la mayoría quiere saberlo todo exactamente. 

Las cajas de ahorro y los bancos ya hace tiempo que también 
utilizan ordenadores para calcular Incluso cosas 
complicadas, de forma rápida y segura. Usted, como cliente, 
depende de los datos de la Institución financiera cuando, 
por ejemplo, se trata de conseguir un crédito. Y estos datos 
pueden ser confusos o diferentes de un Instituto a otro, de 
forma que una comparación de las ofertas puede ser bastante 
difícil. Por ello, es razonable que en este capítulo 
queramos mejorar la Igualdad de oportunidades para los 
clientes de los bancos. 

Los problemas y programas presentados aquí, naturalmente, no 
se pueden comparar con el voluminoso software de las 
grandes Instituciones financieras; sin embargo, pueden ser 
muy útiles cuando, en razón de sus gastos e Ingresos, se vea 
precisado a solicitar un crédito o a Invertir su dinero a 
unos Intereses favorables. 
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4.2. El cálculo de Intereses 


La base de toda el área "dinero y crédito" es el cálculo 
de Intereses. Visto desde el punto puramente matemático, es 
éste, naturalmente, un asunto relativamente fácil. Pero 
quizás, algún lector ya no sabrá cómo se calculan 
exactamente las magnitudes elementales en un problema de 
Intereses. Por ello, el siguiente programa sirve más de 
entrenamiento para el manejo de estas magnitudes, que de 
aplicación práctica en relación con su planificación 
fInanclera. 


Las siguientes 
programa: 

Interés = 


fórmulas de cálculo sirven de base del 


capital * tiempo * tanto por ciento 


100 


Capital = 


Interés * 100 
tanto por ciento * tiempo 


Interés * 100 

Tanto por ciento = - 

capital * tiempo 
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Tiempo = 


in+erés * 100 


capital * tanto por ciento 


La Indicación del tiempo se hace aquí en años. El año es de 
360 días o 12 meses de 30 días. SI quiere usted tener en 
cuenta meses y/o días, tendrá que convertirlos 
adecuadamente. 


Programa: 


10 REH IB 
SO CLS 

30 PRINT’'I8 - Programa para el calculo” 

40 PRINT TPBCBl”de intereses, del tipo de interes," 

50 PRINT TflBt6)”del capital o de la duración” 

60 PRINT TñB(6D”del préstamo del capital” 

70 PRINT:PRINT:PRINT 

80 PRINT TABClll "Bernd Koiual, 19B5" 

90 G0SUB 460 

100 PRINT TAB(12)”nenu de selección":PRINT:PRINT 

110 PRlNT"Que hay que calcular ?”:PRINT 

ISO PRINT TPBl 30:'"Entrada” : PRINT 

130 PRINT"Intereses",TftBC335"1”:PRINT 

140 PRÍNT”Tipc de interes",TPBC331”2”:PRINT 

150 PRINT"Capítal",TftBC33)”3”:PRINT 

160 PRINT"Duración del préstamo" 

170 PRINT"del capital ”,TABC33)”4” 

1B0 PRINT:PRINT:PRINT:INPUT”Su eleccion” ; a 
190 IF a<1 OR a>4 THEN CLS:G0TQ 100 

200 CLS:PRINT"Entrada de los valores conocidos :”:PRINT 
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210 IF a<>l THEN INPUT”InteresBS Can Ptas.3 

220 IF a<>2 THEN INPUT”Tipo da intarBS (porcentaje)” 

230 IF a<>3 THEN INPUT”Capital Can Ptas. ) 

240 IF a<>4 THEN INPUT"TiempQ da duración tangos) ” 
250 PRINT:PRINT 
260 IF a>l THEN 310 
270 Zi“K*Zd*Zs/100 

2B0 PRINT”0espues da”;Zd¡”angos al capital” 

290 PRINT "produce ”¡Zi¡” Ptas. de interes." 

300 GOTO 410 

310 IF a>2 THEN 350 

320 Zs-Zi*100/K/Zd 

330 PRINT”E1 tipo de interes es”;Zs;”5í.” 

340 GOTO 410 

350 IF a>3 THEN 390 

360 K-Zi*100/Zs/Zd 

370 PRINT”E1 capital asciende a”;K¡”Ptas.” 

390 GOTO 410 
390 Zd”Zi*100/K/Zs 

400 PRINT"E1 tiempo de duración es”;Zd;"anyos." 

410 PRINT.-PRINT: INPUT"Algun otro calculo (s/n) ” ¡ aS 
420 IF aS-"s” THEN CLS:G0T0 100 
430 IF a$<>"n” THEN 410 

440 PRINT:PRINT:PRINT”Pues hasta otra !” 

450 END 

460 REíl UP subprograma esperar 

470 LOCOTE 7,25 

480 PRINT”Puíse una tecla ! ” 

490 xS-INKEYS 

500 IF xS-”” THEN 490 

510 CLS:RETURN 


Zi 

Zs 

K 

Zd 
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Lista de variables: 


a = Variable de contestación en la selección del menú 
a$ = Cadena de contestación (s/n) 

K = Capital 

Zd = Duración de la cesión de capital 

Zt = Interés 

Zs = Tanto por ciento 


Descripción del programa: 

Líneas 10- 90 : Título 

Líneas 100-190 : Selección del menú 

Líneas 200-250 : Se piden valores para las magnitudes cono¬ 
cidas 

Líneas 260-400 : Se calcula la magnitud desconocida y se e- 
dlta el resultado 

Líneas 410-440 : Ramificación a la selección del menú, si 
si todavía se tiene que realizar un cálcu¬ 
lo. De lo contrario, se edita un comenta¬ 
rlo. 

Línea 450 : Final del programa 

Líneas 460-510 : Subprograma "esperar" 
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Resultados del programa: 


SI en la selección del menú entramos un 1, se piden a 
continuación valores para el tanto por ciento, para el 
capital y para el tiempo de duración. SI tomamos un tanto 
por ciento del 8 , 95 %, un capital de 347,- DM y un tiempo de 
duración de 4 años, el ordenador edita: 

Al cabo de 4 años el capital producirá 
124,226 DM de Intereses. 

¿ Algún otro cálculo (s/n) ? 
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4.3. Su dinero en la libreta de ahorro (capitalización 
de Intereses) 


SI coloca usted un determinado capital en un banco, al cabo 
de un año son añadidos al importe del capital los Intereses 
producidos. Al año siguiente - y esto no se ha tenido en 
cuenta en el último capítulo - los Intereses sumados, a su 
vez, han producido Intereses (capitalización de Intereses). 
Para este fin, el programa del capítulo anterior es menos 
apropiado. En cambio, el programa que tenemos aquí le 
calcula exactamente cómo se ''desarro II a' 1 su dinero en la 
cuenta de ahorro, es decir, cómo se multiplica. Solamente 
tiene que entrar usted un Importe Inicial y un tanto por 
ciento cualquiera. Luego recibirá como resultado el Importe 
total al cabo del número de años que usted quiera. 
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Programa 


10 REn la 
20 cls 

30 PRINT”IS - Programa para el calculo de" 

40 PRINT TABC6Í"intereses compuestos con pago” 

50 PRINT TABC51"anual de intereses y capital" 

BO PRINT TftBCBl"inicial dado.” 

70 PRINT:PRINT:PRINT 

BO PRINT TABClli "Bernd kowal, 19B5” 

90 GOSUB 260 

100 INPUT"Capital inicial ";flk 

110 INPUT”Tipo de interes anual "; Zs 
120 PRINT”Duracion del préstamo” 

130 INPL)T”del capital en anyos " ; Zd 
140 J-20:l-l 

150 CLS:PRINT" anyo interes capital" 

160 PRINT:FOR 1-1 TG Zd 
170 Zb“Ak*Zs/100 
1B0 Ek-Ak+Zb 

190 PRINT; USING "#### ";i; 

200 PRINT; USING ”###«#«###.## ";2b; 

210 PRINT; USING "###########.##";Ek 
220 Ak m Ek 

230 IF i-J THEN 1-J+1:J-J+20:GOSUB 260:G0TG 150 
240 NEXT i 
250 END 

260 REH UP subprograma esperar 

270 LOCATE 7,25 

280 PRINT"Pulse una tecla !” 

290 xS-INKEY$ 

300 IF xS-"” THEN 290 
310 CLS:RETURN 
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Lista de variables: 


Ak = Capital Inicial 
Ek = Capital final 
I = Indice de control 

J = Variable auxiliar que, con la pantalla completamente 
ocu¬ 
pada, hace posible una Interrupción del programa 
I = Valor variable del Inicio del bucle 

Zb = Importe de los Intereses por año 

Zd = Tiempo de duración de la cesión del capital 

Zs = Tanto por ciento de Interés anual 

Descripción del programa: 

Líneas 10- 90 : Título 

Líneas 100-130 : Petición de los datos de partida 

Línea 140 : El valor Inicial del bucle se equipara a 1 y 

I a 

variable auxiliar j a 20 

Línea 150 : Se limpia la pantalla y se edita un título de 
tab I a 
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Líneas 160-240 : Para cada año se calcula el Importe de los 
tntereses y el capital final y los resul¬ 
tados se editan formateados. Después de la 
edición de una línea de resultados, el ca¬ 
pital final calculado se convierte en el 
capital Inicial del siguiente perlódo (lí¬ 
nea 220). 

La línea 230 sirve para la Interrupción del 
programa al cabo de 20 períodos (subprogra¬ 
ma "esperar"). En este caso también se mo¬ 
difica correspondientemente el valor Ini¬ 
cial 1 del bucle. 

Línea 250 : Final del programa 

Líneas 260-310 : Subprograma ''esperar' 1 


Resultados del programa: 

Con un capital Inicial de 1000,- DM y un porcentaje de 
Interés del 4,8? con un tiempo de duración de 10 años, 
resulta: 


Año Interés Capital 

1 48.00 1048.00 

2 50.30 1098.30 

3 52.72 1151.02 

4 55.25 1206.27 

5 57.90 1264.17 

6 60.68 1324.85 

7 63.59 1388.45 

8 66.65 1455.09 

9 69.84 1524.94 
10 73.20 1598.13 
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4.4. El Interés anual efectivo 


SI pide usted las condiciones de crédito en una Institución 
financiera, los consultores le presentarán las más diversas 
ofertas. Sin unas concretas indicaciones de los intereses, 
la comparación de las ofertas es difícil y para el profano, 
a menudo Incluso Imposible. El Interés efectivo da realmente 
información sobre qué oferta de crédito es la más favorable. 
Como se comprenderá, los Institutos de crédito, para sus 
cálculos Internos, calculan un Interés efectivo. Sin 
embargo, algunos bancos se comportan bastante reservadamente 
cuando se trata de mencionar también a sus clientes este 
interés efectivo. Por lo tanto, usted, como cliente bancarlo 
no saca nada en claro. 

¿ Qué es, pues, exactamente el interés efectivo y cómo se 
puede calcular ? 

En el Interés efectivo están contenidos todos los 
componentes del precio de un crédito. Es, por así decirlo, 
un Indicador del precio de un crédito. Para ello se juntan 
todos los costes del crédito en porcentajes anuales frente 
al capital Inicial del Importe realmente pagado. 

Hasta el 1.1.1981, el cálculo del Interés efectivo anual no 
era nada problemático. La ecuación para los contratos 
crediticios que se cerraron antes del 1.1.1981 es como 
sigue: 
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e 


24 * (porcentaje mensual * meses de duración + b) 


meses de duración + 1 


Aquí: 

e = Tipo de Interés efectivo en í por año. 

b = Derechos de gestión en % del Importe Inicial del 
crédito 

Desde el 1.1.1981, para el cálculo del Interés efectivo 
anual se utiliza el método de 360 días. Desde entonces, 
con la ayuda de la siguiente ecuación, el Interés efec¬ 
tivo anual de un crédito con una cuota mensual de pago y 
cálculo de Interés mensual (referido al Importe del cré¬ 
dito concedido) se calcula así: 

1 + TÓÓ P q j 

M 100 (12 11) * (q J _ i) + ®— 

1 2 24 l+fj *1 


Aquí: 

e = Interés efectivo buscado en % por año (=100*1) 
I = e/100 
q = 1+1 

M = Duración en meses 

= Número de cuotas mensuales acordadas (=12*J+m) 
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J = Tiempo de duración por años completos 
= Cuota de participación de M/12 

m = Restante tiempo de duración en meses = M - 12 * J 

p = Tipo de Interés nominal por mes en % del Importe 
Inicial del crédito 

b = Derechos de gestión en % del Importe Inicial del 
crédito 

Esta ecuación no se puede llevar a la forma de Interés 
efectivo e = ... Exceptuando soluciones matemáticas de 
aproximación muy exigentes, e solamente se puede determinar 
haciendo repetidas pruebas. No en vano se utilizan en los 
bancos ordenadores (o volúmenes de tablas de aprox. 6000 
páginas) para averiguar el Interés efectivo. Mientras que la 
fórmula anterior tiene la ventaja de que también la pueden 
manejar los no matemáticos, el nuevo método proporciona 
sencillamente resultados más exactos. 

Con el apoyo de su CPC y un programa adecuado, la 
determinación del tipo de Interés efectivo no es nada 
difícil. Aquí partimos de la siguiente consideración: 

SI pasamos los términos que se encuentran a la Izquierda del 
signo Igual al lado derecho (como se sabe, así se Invierten 
los signos), tendremos una ecuación de la forma 
0 =. 

SI ahora entramos diversos valores para e, la expresión 
total de la derecha del signo Igual es menor que 0 si el 
valor entrado para e es demasiado pequeño, y es mayor que 0 
si hemos escogido un valor demasiado grande. 
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En el siguiente programa, por lo tanto, cada vez se aplican 
mayores valores para e hasta que la expresión de la derecha 
del signo Igual sea mayor que 0. Luego, para la localización 
más exacta del valor real para e, se toman Intervalos y 
amplitudes de paso cada vez más pequeños para los valores de 
ensayo, de forma que finalmente sale un resultado con una 
exactitud de 4 decimales. 

Una forma de proceder de este tipo prácticamente sólo es 
posible con un ordenador. De lo contrario, el empleo de 
tiempo sería excesivamente largo. En la ejecución del 
programa solamente tiene que Indicar usted valores para las 
magnitudes M,p y b de la ecuación de arriba. 


Programa: 


10 REI'1 110 
PC CLS 

30 PRINT”I10 - Programa para el calculo del” 

40 PRINT TfiEC71 "ínteres anual efectivo” 

50 PRINT:PRINT:PRINT 

EO PRINT TABU II' "Esrnd Kowal, 19B5" 

70 G05UB 310 

8C PRINT"Numero de plazos” 

90 INPüT"mensuales convenidos ";m:PRINT 

100 PRINT"Tipo nominal de ínteres mensual en 

110 INPUT"sobre imparte original del credito";p:PRINT 

120 PRINT"Gastos de gestión en \ sobre el" 

130 INPUT"importe original del crédito ";b 
140 IF m-0 0R p-0 THEN CLS:GOTO B0 
150 PRINT:PRINT:PRINT:PRINT 
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1E0 kl-1:k5“100:s-1 

170 FOR e«kl TO k2 STEP s 

1B0 l-e/100:q-l+i:J-FIXCm/12):rm-m-12*J 

190 lt-Cl+b/lOOl/m+p/lOO.-z-q'j 

200 nl-(12/i+ll/21*Cq‘J-13 

210 n2-C 1-Krm-l )/24*i )*rm/ C l+rm/12*i ) 

220 vg-z/Cnl+n2)-lt 

230 IF vg>0 THEN GOSUB 2B0:G0T0 170 

240 NEXT e 

250 PRINT”Interes anual efectivo :”:PRINT 
260 PRINT”e - ”;USING ”##.####";e;:PRINT”V 
270 PRINT:PRINT:PRINT"Fin de los cálculosEND 
280 kl-e-s:k2-e:s-s/10 
290 IF s-0.000001 THEN 250 
300 RETURN 

310 REn IIP subprograma esperar 

320 LOCATE 7,25 

330 PRINT”Pulse una tecla !” 

340 xS-INKEYS 

350 IF xS-"” THEN 340 

360 CLS:RETURN 
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Lista de variables: 


b = Derechos de gestión 
e = Tipo de Interés efectivo buscado 
I = e/100 

j = Tiempo de duración en afios completos 

kl = Valor Inicial del bucle del programa (límite Inferior 
de Intervalo) 

k2 = Valor final del bucle del programa (límite superior de 
Intervalo) 

It = Parte Izquierda de la fórmula de cálculo (Izquierda del 
signo Igual) 

m = Tiempo de duración en meses 

ni = Primer sumando del denominador (a la derecha del signo 
Igua I) 

n2 = Segundo sumando del denominador (a la derecha del 
signo 

Igual) 

p = Tipo de Interés mensual por mes 
q = 1+1 

rm = Tiempo restante de duración en meses 
s = Amplitud de paso del bucle del programa 
vg = Valor comparativo (mayor o menor que 0) 
z = Numerador (a la derecha del signo Igual) 
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Descripción del programa: 


Líneas 10- 70 : Título 

Líneas 80-130 : Se piden los valores de partida 

Línea 140 : Repetición de la petición de valores, si para 
m o p se entra un 0 

Línea 150 : Se editan cuatro líneas en blanco 

Línea 160 : El valor Inicial, valor final y la amplitud de 
paso del bucle del programa son ocupados 
con un valor Inicial cada uno 

Líneas 170-240 : Bucle del programa para el cálculo del 
valor comparativo vg, compuesto de todos 
los términos de la fórmula de cálculo, 
para valores alternativos e (e es el ín¬ 
dice de control del bucle). 

SI en la línea 230 el valor comparativo 
es mayor que 0, tiene lugar un salto al 
subprograma ( línea 280 ) para modificar 
el valor Inicial y final (que hay que 
Interpretar como límites de Intervalo) y 
la amplitud de paso del bucle del progra 
ma. Además, en este caso, se ramifica a 
la línea 170 ( nuevo recorrido del bu¬ 

cle ). 

Líneas 250-260 : Edición de resultados 

Línea 270 : Final del programa 

Líneas 280-300 : Subprograma para una nueva ocupación de 
las variables k1,k2 y s. Los valores pa¬ 
ra kl y k2 son escogidos de manera que 
entre k1 y k2 se tiene que encontrar el 
verdadero valor para e ( en el recorrido 
del bucle para e-s, vg todavía era nega- 
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tlvo). En la línea 290 se encuentra un 
criterio para la Interrupción del progra¬ 
ma. 


Líneas 310-360 : Subprograma "esperar" 


Resultados del programa: 

SI, después del Inicio del programa, entramos los valores 50 
(número de cuotas mensuales), 0,5 (tipo de Interés nominal 
mensual) y 1 (derechos de gestión en%), obtenemos el 
siguiente resultado: 

Interés anual efectivo: 

e=12.0329 % 

Por el contrario, con la fórmula anterior, llegamos a un 
Interés efectivo Insignificantemente superior: 


24 * (0.5 *50+1) 


50 + 1 


12,2353 
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4.5. Deudas y su amortización (plan de amortización) 


También en este capítulo se trata del tema deudas. 

Si, por ejemplo, quiere usted tomar un crédito de 100.000 DM 
nominales, su banco, generalmente, le cargaré un 
"disaglo". El "disagio" (llamado también "damnum"), es 
un Importe que cobrael banco como gastos, y lo deduce del 
principal. No obstante, ha de amortizarse el importe íntegro 
del crédito. Así pues, para el cálculo de los Intereses y la 
amortización tiene que partir usted de la deuda nominal y no 
del Importe realmente recibido. 

Al tomar el crédito acordará usted con su banco un tipo de 
Interés y una amortización Inicial (Igualmente en porcentaje 
sobre el Importe nominal del crédito). De estas dos 
magnitudes se compondrá la cuota que tendrá que satisfacer 
mensual o trimestralmente. Con un tipo de interés del 6 % y 
con una amortización Inicial del 2%, esto representa 2.000,- 
DM por trimestre u 8.000,- DM por año. Para el tiempo de 
duración del crédito esta cuota es constante. Sin embargo, 
crece la participación de la amortización en la cuota, 
mientras la participación de los intereses decrece 
permanentemente, ya que el capital que ha de producir 
Intereses disminuye de año en año. Por ello la devolución 
del préstamo, en nuestro ejemplo, tampoco dura 50 años sino 
solamente aprox. 23 (con Interés invariable). 

Las ofertas de crédito se diferencian también en la duración 
del tipo de Interés convenido. Después del vencimiento de 
este plazo, el tipo de Interés, de acuerdo con la situación 
del mercado, es Incrementado o disminuido. Entonces, no 
obstante, también puede usted, si lo desea, pagar al contado 
el resto de la deuda, ya sea con medios propios o ajenos. 
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Así pues, puede ser muy Importante para usted conocer esta 
deuda pendiente, la cual es determinada con la ayuda de un 
plan de amortización análogo a la contabilidad de la cuenta 
de la Institución flnanctera. En esta contabilidad se ponen, 
naturalmente, todos los parámetros relevantes del crédito, 
tales como cuota, capital a rentablI Izar, Interés, 
amortización y deuda pendiente. 

El siguiente programa simula un plan de amortización de este 
tipo. Al mismo tiempo, con la ayuda del modo de 80 
caracteres y de la Instrucción PRINT USING, se le muestran 
las poslblldades del CPC para crear tablas. 

No obstante, sobre este plan de amortización hay que hacer 
todavía algunas observaciones: 

1) La cantidad de partida es la deuda nominal y no el tmpoi— 
te pagado. 

2) Esta deuda nominal es rentablI Izada y amortizada. 

3) Aunque se pagan cuotas regularmente (en el presente pro¬ 
grama, trimestralmente ), el Interés es calculado cada 
vez por un año sobre un Importe fijo de capital. 

Hasta que no ha pasado un año no se reduce el capital a 
a rentablI Izar. 

4) Por el contrario, la deuda pendiente decrece en el Impor¬ 
te de amortización cada vez que se paga una cuota. Al ca¬ 
bo de un año es Idéntica al capital a rentablI Izar. 

5) Al cabo de un año se cierran los movimientos de la cuen¬ 
ta. Los pagos de Intereses, amortizaciones y cuotas son 
sumados y el capital a rentablI Izar se reduce en el Im¬ 
porte amortizado. La deuda pendiente, al cierre, permane¬ 
ce Intacta ya que, a cada pago de cuota, se hace más pe¬ 
queña ( naturalmente, sólo si realmente también se amoi— 
tizan deudas ). 
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6) El plan de amortización prosigue hasta que la deuda pen¬ 
diente sea menor que la cuota. Entonces, en el programa 
presente tiene lugar la edición correspondiente. 

7) Para optimizar la edición de pantalla, en este programa, 
en la creación de la tabla, hemos prescindido de editar 
separadamente la expresión "pulsar tecla por favor". Ade¬ 
más hay que prestar atención a las posiciones de edición 
de la Instrucción PRINT USING. SI, después de Iniciar el 
programa, entra Vd. Importes del orden de MIL MILLONES, 
la edición de la tabla se hace confusa. 


Programa: 


10 REM 111 
20 CLS 

30 PRINT”111 - Programa para la Formación” 

40 PRINT TftBC7V’de un plan de amortización” 

50 PRINT:PRINT:PRINT 

60 PRINT TABClll "Bernd Kowal, 1965” 

70 GOSUB 640 

80 INPUT"Importe del crédito ";Kb:PRINT 
90 INPUT”Tipo de interes anual nominal”;Zs:PRINT 
100 INPUT”Que ’í de amortización inicial ”;t:PRINT 
110 PRINT’Techa recepción del préstamo:” 


120 INPUT”Dia ";tg 
130 INPUT’Tles ”¡m 
140 INPUT"Anyo ”¡J$:PRINT 
150 JS-RIGHTS(JS,2):J-UftLCJSl 

160 PRINT”Se considera pues como fecha de inicio” 
170 PRINT”el ”;tg;”•”;m;” . ”;J 
160 GOSUE 640:CL5:HODE 2 
190 GOSUB 550 

200 kl-1:k2-5:R-0:Zi-0:Ti-0:Rs-Kb 
210 FOR i-kl TG k2 
220 IF i-kl THEN 260 

230 IF m>9 AND J-99 THEN J-0:G0T0 250 

240 IF m>9 THEN J-J+l 

250 IF m>9 THEN m-m-9 ELSE m-m+3 
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260 
270 
280 
230 
300 
310 
320 
330 
340 
350 
360 
370 
380 
380 
400 
410 
420 
430 
440 
450 
460 
4 7 0 
480 
430 
500 
510 
520 
530 
540 
550 
550 
570 
580 
580 
500 
610 
z. ur 

630 

640 

550 

660 

S' 7 C 

6ec 

580 


PRINT;USING”##.”¡tg;:PRINT;USING”##.m; 
PRINI ¡ USING”##” ; J ; 

IF i-l THEN PRINT TABC113"Pago”;:GOTO 310 
IF i-kl THEN PRINT TABC113"Total”;:GOTO 310 
PRINT TABC113i-1;”. plazo”; 

TABC233;USING”#####.##”;R; 

#######.##”;Kb; 

#####.##”;ZÍ; 

#####.##”;Ti; 

#######.##” ;Rs 
410 

*Kb*<:Zs+t3/400 ELSE R-R/4 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


USING” 
USING” 
USING” 
USING” 
IF i> kl THEN 
IF 1-1 THEN 


PRINT 

Zi-Kb*Zs/400 

Ti-R-Zi 


Rs=Rs-T í 

IF Rs<0 THEN 510 
IF i<k2 THEN 460 
R=R*4:Zl-Zl*4:Ti-Ti*4 


Kb=Kb-Ti:Rs-Rs+Ti/4 

IF zae=3 AND kl-i THEN zae-0:GOSUB 640:G0SUB 560 
NEXT i 


zae-zae+1 
):l-k2: kE-k.2+4 
GOTO 210 

PRINT:PRINT”Con el pago de”; 

PRINT ¡NTC CRs*Ti3*100+0.53/100;"Ptas. la deuda ”; 
PRINT"esta liquidada.” 

GOSUE 640:n0DE 1:END 
REn UP titulo de la tabla 

PRINT”Fecha concepto cuota caplt”; 

PRINT''al ínteres amortiz. Resto” 

PRINT TABEES:' "en Ptas.";TABC353” sin”; 

PRINT TAEC493“en Ptas.”;TABCS03"en PtasTABC713 
PRINT TABC353” ínteres”;TABC713"en Ptas.” 

PRINT TABC35? " en Ptas.” 

PLOT 0,330:DRAW 620,330:PRI NT 
PETURN 

REH UP subprcgrana esperar 
LOCATE 7,25 

IF í-C THEN PRINT'Pulse una tecla !" 

■ :% = r 

IF ”" THEN 670 
CLS:PETURN 


deuda 
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LIs+a de variables: 


I = Indice de control 
J = Año 

j$ = Campo de entrada para J 

kl = Valor Inicial del bucle del programa 

k2 = Valor final del bucle del programa 

Kb = Importe nominal del crédito o capital a rentablllzar 

m = Mes 

R = Cuota en DM 
Rs = Deuda pendiente en DM 
t = Amortización Inicial en % 
tg = Día 

TI = Amortización en DM 

zae = Variable contadora 

ZI = Interés en DM 

Zs = Interés anual nominal en % 
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Descripción del programa: 


Líneas 10-70 : Título 

Líneas 80-170 : Entrada de las magnitudes de partida. La 
Indicación de los años se concibe como 
variable de cadena para, en la línea 150 
convertir en una expresión numérica so¬ 
lamente los dos caracteres entrados en 
último lugar. Este procedimiento, algo 
complicado, tiene como consecuencia que 
de la entrada "1985" solamente entra el 
valor "85" en la creación de la tabla. 

Línea 180 : Se hace una ramificación al subprograma "es¬ 
perar", se limpia la pantalla y se modi¬ 
fica el modo de pantalla ( 80 caracteres 
por línea ) 

Línea 190 : Salto al subprograma (línea 550) para la edi¬ 
ción del título de la tabla 

Línea 200 : Ocupación de las variables con valores de 
partida para el primer recorrido del bu 
ele. 

Líneas 210-470: Formación de un bucle de programa para 
cálculo de las diferentes magnitudes y 
para la edición, en forma de tabla, de 
los resultados de cada período (= 1 año) 
respectivo. En cada primer recorrido se 
tiene en cuenta el proceso "pago" o "cíe 
rre". 

220-250 : En los recorridos 2. - 5. por 
período ( entonces se pagan 
cuotas) se modifica la fecha 
260-270 : Edición de la fecha 
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280-300 : Edición de! proceso respectivo 
( 1. recorrido del 1. período: 
pago, 1. recorrido de los si¬ 
guientes períodos: cierre, 

2. - 5. Recorrido de todos los 
períodos: pago de cuotas) 

310-350 : Edición de los demás valores de 
I a tab I a 

360-400 : En cada I.recorrí do se calculan 
la cuota, el Interés y la amoi— 
tlzaclón (permanecen constantes 
para el respectivo período ) y 
se edita una línea en blanco. 

En la línea 370 hay que tener 
en cuenta que, en realidad, la 
cuota solamente se calcula en 
el 1. recorrido del 1. período. 
De lo contrario el último valor 
de cierre se divide simplemente 
entre 4. 

430-450 : En cada último recorrido se cal¬ 
culan para el cierre la cuota, 
el Interés, el capital a renta- 
di I Izar y la deuda pendiente. 

460 : SI se han editado los resultados de 
tres períodos (zae=3) Incluyen¬ 
do el cierre (k1=I, 1. recorri¬ 
do), el índice contador se e- 
qulpara de nuevo a 0 y se hace 
una ramificación a los subgra¬ 
mas "esperar" y ''título de 
la tabla". 

Líneas 480-500 : Después de terminado el recorrido del 
bucle, se aumenta en 1 el índice conta¬ 
dor, se ocupan de nuevo el valor Inicial 
y final del bucle del programa y se hace 
una ramificación a la línea 210 ( nuevo 
recorrido de bucle). 
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Líneas 510-530 : Se edita un comentarlo relativo al pago 
del resto,si ya no hay ninguna cuota más 
por pagar. 

Línea 540 : Salto en el subprograma "esperar", cambio al 
modo de 40 caracteres y final del pro¬ 
grama 

Líneas 550-630 : Subprograma "título de la tabla" 

En la línea 620 se subraya el título.Con 
la Instrucción PL0T se coloca el cursor 
de gráficas en la correspondiente posi¬ 
ción y con la Instrucción DRAW se dibu¬ 
ja la línea. 

Líneas 640-690 : Subprograma "esperar" 

Ahora se edita el comentarlo "pulsar u- 
na tecla por favor" si todavía no se ha 
empezado la creacclón de la tabla. 

Resultados del programa: 

SI ejecuta usted el programa para un Importe nominal de 
crédito de 10.000 DM, un Interés anual del 7Í y una 
amortización anual del ~ 5 % y se hace pagar el dinero el 
30.12.1985, verá usted que, con un cargo trimestral de 225,- 
DM, tendrá que satisfacer 88 cuotas hasta el 30.12.07 
(exactamente 22 años) y que luego todavía hay que pagar un 
resto de 198,85 DM. Así pues, devolverá en total 19.998,85 
DM. 
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4.6. Filón de ideas 


- Formación de una cuenta comparativa para poder comparar 
ofertas de crédito (aquí -al contrario de lo que ocurre con 
el plan de amortización - el papel determinante lo juegan 
los pagos reales correspondientes a los plazos también 
reales) 

- Determinación del número de valoración en contratos de 

ahorro-vivienda 

- Financiación de la construcción y modelo de constructor 

- Gestión de costes y cálculo de los mismos 

- Análisis de valores: análisis de curso y tendencia de la 
bolsa 

- Gestión de depósito de acciones 

- y muchas otras cosas 
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5. Textos e Impresión 


5.1. Advertencia preliminar 


Un microordenador no solamente está ahí para calcular, sino 
que también puede procesar textos. Este campo de aplicación 
de los ordenadores no debiera ser solamente conocido por los 
empleados administrativos. 

Las tareas más Importantes del procesamiento de textos son: 

- Almacenamiento y archivo de textos 

- Edición repetida de textos 

- Modificación de textos, rápida y a voluntad 
(corregir, completar, unir, etc.) 

SI quiere usted realmente practicar con seriedad el 
procesamiento de datos, deberá dirigirse al mercado 
profesional de software. Se asombrará usted de lo que, por 
ejemplo, puede hacer el TEXTOMAT de DATA BECKER. De todas 
maneras, necesitará entonces una unidad de disco como medio 
externo de memoria. No obstante, para el uso doméstico 
ocasional son suficientes programas hechos por uno mismo y 
un cassette. Un programa de este tipo puede simular las 
funciones más Importantes del software profesional de 
procesamiento de datos (véase el capítulo 5.4) o puede ser 
apropiado solamente para determinadas aplicaciones (véase 
capítulo 5.3). 
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Sin grandes dificultades puede usted ocupar determinadas 
teclas de su ordenador con caracteres especiales alemanes, 
tales como ti,a,ó o . Precisamente para el procesamiento de 
textos está ello plenamente justificado. En el capítulo 5.2 
se encuentra un programa adecuado para ello. En realidad, 
existe, naturalmente, la posibilidad de cambiar a letras 
minúsculas o mayúsculas, a base de las teclas SHIFT y CAPS 
LOCK. Esto lo mencionamos sólo brevemente ya que, en 
aplicaciones matemáticas puede apañarse usted muy bien aun 
sin esta función de cambio. 

Sobre el tema Impresora, no pueden hacerse recomendaciones 
generales. El Amstrad Matrlx Prlnter NLQ 401, por lo que 
cuesta, suministra una figura de escritura muy buena, pero - 
Independientemente de la Impresora que tenga usted - siempre 
encontrará una que Imprima de forma más bonita. 
Especialmente la pregunta Impresora de margarita o 
Impresora de matrices ?" es siempre una cuestión de dinero. 
Para el campo más profesional la Impresora de margarita es, 
naturalmente, más apropiada. 

Una última observación todavía sobre el tema monitor. SI 
tiene usted un monitor de color, lo mejor es que pruebe con 
qué combinación de colores puede trabajar bien. Evite usted 
toda magia de colores. Sus ojos se lo agradecerán. Lo tendrá 
más fácil si posee usted un monitor verde. Es muy apropiado 
para el procesamiento de textos, ya que no se aparta de lo 
esencial. 
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5.2. Caracteres especiales alemanes 


En la comparación del teclado de su ordenador con el de una 
máquina de escribir, le habrá llamado seguramente la 
atención que alguna cosa es diferente. Para el procesamiento 
de textos hay que reprochar la falta de los letras alemanas 
con diéresis ti,8,6,0,A,0 y de B . En el Amstrad-BASIC, no 
obstante, no es nada problemático definir estos caracteres 
para determinadas teclas. Para ello solamente se debiera 
decidir por teclas cuyo valor ASCII coincida con el valor 
correspondiente de la tabla de códigos de caracteres. Así se 
garantiza que una diéresis en la pantalla también se Imprima 
como diéresis. 

En el siguiente programa se efectúa esta ocupación de 
teclas. El manejo de estas teclas precisa, no obstante, de 
una cierta fase de adaptación, ya que las teclas ocupadas, 
solamente en parte recuerdan el teclado de una máquina de 
escribir. 

La nueva ocupación tiene lugar por medio de la Instrucción 
SYMBOL. Aquí hay que tener en cuenta que los parámetros de 
esta Instrucción, que en función de los bits escriben de 
arriba para abajo la matriz de 8x8 puntos del nuevo 
carácter, son números hexadeclmales. Así, por ejemplo el 
parámetro C3 hace que las dos primeras y últimas columnas de 
la línea respectiva reciban el color actual de la escritura 
y las cuatro columnas del medio el color de fondo de la 
superficie de escritura, ya que el número hexadeclmal C3 en 
la forma de escritura binarla es Igual a 

11000011 

0 = Color de fondo de la superficie de escritura 

1 = Color de la escritura 
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Para cada una de las 8 líneas tiene que Indicar usted un 
número hexadeclmal adecuado. En el libro manual de 
Instrucciones de su CPC encontrará una bonita tabla en la 
cual el sistema binarlo se contrapone al sistema 
hexadeclmal, de forma que se puede ahorrar complicadas 
conversiones. Además, esto facilita el trabajo de definición 
si consulta usted el juego de caracteres CPC mencionado en 
el libro manual. Allí encontrará también los respectivos 
números de los caracteres (primer parámetro de la 
Instrucción SYMBOL). 


Programa: 


10 RETI 112 
20 CLS 

30 PRINT ”112 - Programa para la definición dB” 

40 PRINT TABC7)"caracteres especiales alemanes” 

50 PRINT:PRINT:PRINT:PRINT:PRINTh PRINT 
60 PRINT IftB(9) "Bernd Kowal, 19B5” 

70 GOSUB 350 

00 PRINT”Pulse lentamente y una tras otra” 

00 PRINT”las siguientes teclas :" 

100 PRINT: PRINT”sin SHIFT y CTRL: C,3,\” 

110 PRINT:PRINT”y con SHIFT B.C.D" 

120 PRINT:PRINT”y con CTRL . : 2 (izquierda arriba)” 

130 SYMBOL AFTER SO 

140 REM ’u' con diéresis minúscula 

150 SYMBOL 125,&0,&E6,SO,866,86E,B66,83E,80 
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I'B'D"REH"’U con diéresis mayúscula 

170 SYMBOL 93 , SBE , BO , 866 , 866 , S6E , 866 , 830 , 80 

180 PEO ‘o’ con diéresis minúscula 

190 SYMBOL 124,8BE, 80, S3C, 856, &6B, 866,S3C, 60 

200 REO ’0' con diéresis mayúscula 

210 SYMBOL 92,868,860,806,806,806,860,838,80 

220 REO 'a' con diéresis minúscula 

230 SYriBOL 123,aC6,aO,878,80,870,800,876,80 

240 REH '8' con diéresis mayúscula 

250 SYMBOL 91,858,830,866,866,87E,aB6,866,80 

260 REM dable ’S' 

270 SYMBOL 126,870,SC6,806,8FC,806,806,8F8,SCO 
280 PRINT:PRINT:PRINT 

290 PRINT"Si quiere Ud. crear sus propios signos” 
300 PRINT"solo tiene que modificar los” 

310 PRINT"correspondientes valores en las” 

320 PRINT”mstrucciones SYMBOL.” 

330 PRINT:PRINT:PRINT 

340 PRINT'Tin del pragrama”:END 

350 REM UP subprograma esperar 

360 LOCATE 5,25 

370 PRINT”Pulse una tecla ! ” 

380 xS-INKEYS 

390 IF xS-”" THEN 380 

400 CLS:RETURN 
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En el programa no se necesita ninguna variable 

Descripción del programa: 

Líneas 10- 70 : Título 

Líneas 80-120 : Edición de una Instrucción de usuario 

Línea 130 : Determinación del área en la cual se definen 
los caracteres alemanes especiales 

Líneas 140-270 : Definición de los caracteres especiales 
alemanes y nueva programación del tecla¬ 
do. 

Líneas 280-330 : Edición de un comentarlo 

Línea 340 : Final del programa 

Líneas 350-400 : Subprograma para esperar 


Resultados del programa: 

Siempre que quiera usted utilizar los caracteres especiales 
alemanes, puede Introducir las Instrucciones SYMBOL. Esto 
puede efectuarse - como se demuestra arriba - en el 
transcurso del programa o también en el modo directo (a 
nivel de comando). 


98 



5.3. Una carta comercial Individual 


SI es usted comerciante y propietario de una pequeña tienda 
con el bonito nombre de ''Handel Allerlel" en 
HlntertupfIngen, Dorfstrasse I ?, alguna vez puede ocurrir 
también que un cliente "olvide" el pago de una -factura. A 
este estimado cliente (llamémosle Sr. Getzlg) tendrá que 
enviarle un recordatorio de pago, que podría ser como sigue: 


(por favor, vuelva la hoja) 
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Handel Allerlel 
Dorfs+rasse 1 

4999 Hln+ertupfIngen 


Helnl Gelzlg 
Haup+s+rasse 2 

4998 Vorder+upfIngen Hln+ertupfIngen, 20.4.1985 


Asunto: Entrega de una carretilla el 1.4.1985 


Apreciado Sr. Gelzlg: 

Todavía no ha pagado usted. Esto es una Insolencia. SI el 
Importe de 147,50 DM no es Ingresado en nuestra cuenta antes 
del 30.4.1985, tendremos que recurrir a los medios legales. 


Le saludamos atentamente 
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SI ahora hubiera otro cliente que también se ha atrasado en 
un pago, bastaría simplemente con cambiar las partes 
subrayadas de la carta. 

Exactamente Igual puede usted proceder utilizando su CPC, 
una Impresora adecuada y un correspondiente programa. El 
programa adecuado para la carta comercial anterior lo 
encontrará en las páginas siguientes. Las partes subrayadas 
de la carta debe entrarlas usted como variables por medio de 
Instrucciones INPUT; por el contrario, el resto de la carta 
está fijo en el programa. En el caso de que no le guste el 
texto de la carta (en Duesseldorf los comerciantes deben 
tener unas costumbres diferentes a las de HlntertupfIngen), 
puede usted simplemente cambiarlo. Este es un trabajo que 
solamente tiene que hacerlo una vez. Piense usted, no 
obstante, que, por ejemplo, en el siguiente programa cada 
línea de texto tiene exactamente 56 pulsaciones. Esto da un 
nivel profesional y no es difícil de programar por medio de 
espacios en blanco adicionales. 

De esta manera puede usted simplificar toda su 
correspondencia comercial. Se asombrará de cuántas partes 
del texto se repiten en sus cartas. Y el carácter Individual 
de sus cartas comerciales se conserva Intacto. 

Programa: 


¿8 113 

30 PRINT "113 - Programa para escribir" 

40 PRINT TfiBC7)”una carta comercial” 

50 PRINT TABC7)"individual Creclamacion de pago)" 

60 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
70 PRINT TAB19) "Bernd Koual, 1985" 

BO GCSUB 580 

90 REn caracteres alemanes especiales Ca sustituir por 
caracteres españoles) 

100 5YI1B0L AFTER 90 


101 



110 SYI1B0L 185, &0, S66, &0,8BB, S66, £66,83E, SO 
180 SYMBOL 93,866,80,S5B,866,&6E,866,83C,SO 
130 SYMBOL 124,866,80,830,866,866,866,830,80 
140 SYMBOL 98,88(^,860,806,806,806,860,838,80 
150 SYMBOL 183,SC6,80,87B,SC,870,SCO,876,SO 
1B0 SYMBOL 91,85A,S3C,SB6,&BB,87E,SB6,S6B,SO 
170 SYMBOL 186,a7C,SCB,SC6,aFC,aC6,SCB,aFB,C0 
1B0 REM Entrada 
190 MODE 8 

800 PRINT"Nombre del cliente :" 

810 INPUT”Nombre ”;vnS 
880 INPUT”Apellido ";nnS 

830 PRINT:PRINT”E1 cliente es hombre o mujer ?” 

840 INPUT”CEntre usted h o rtO " ¡ g$ 

850 PRINT:PRINT”Direccion del cliente :” 

860 INPUT”Calle y numero del domicilio ”;shS 
870 INPUT”Poblacion con codigo postal “¡opS 

880 PRINT:INPUT”Fecha de envío de la reclamación de pago ”;adS 
890 PRINT:INPUT"Referente a:”¡b$ 

300 PRINT:INPUT"0e que importe de Ptas. se trata "¡dm 
310 PRINT: PRINT’’Hasta que fecha se tienen en cuenta ” 

380 INPUT”los pagos "¡zds 
330 REM edición 

340 CLS:PRINT"Edición en";TABC30}"entrada" 

350 PRINT: PRINT "Pantalla" ; TABC33'J "0” 

3B0 PRINT:PRINT”Impresora";TABC 33 i"B" 

370 PRINT:PRINT:INPUT "Su elección "¡a:CLS 
380 PRINT tta: PRINT tta: PRINT fía: PRINT fía 
390 PRINT tta, "Comercio La Habana" 

400 PRINT #a, "Mirador, 7" 

410 PRINT «a:PRINT «a, "4999 Oillamcrros” 

480 PRINT #a: PRINT tía: PRINT tía 
430 PRINT tta , vnS ; ” ” ; nnS 
440 PRINT tta, sh$ 

450 PRINT tta: PRINT tta, cp$; 

460 q“57-21-LENiadS ) 

470 PRINT tta, TftBCq"Ui 1 lamorros , el " ad$ 

480 PRINT tta: PRINT #a:PRINT tta:PRINT tfa:PRINT »a 

490 PRINT tta, "Referencia: "; bS 

500 PRINT tta: PRINT tta 

510 IF a-0 THEN GOSUB 680 

580 IF g$-”h" THEN 540 

530 PRINT tta, "Apreciada senyora " ; nnS ; " 1 ": GOTO 550 

540 PRINT tta , "Apreciado senyor " ; nnS ¡ ” ! " 

550 PRINT tta:PRINT tta, "Todavía no ha "¡ 

560 PRINT tta, "pagado usted. Esto es una” 

570 PRINT tta, "desfachatez . Si el importe de " ¡ 
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5B0 PRINT #a, ÜSING ”####.##”;dm 

530 PRINT #a, "Ptas. no es ingresado en nuestra cuenta" 

600 PRINT #a,"hasta el 

610 PRINT #a, USING”\ \”¡zdS; 

620 PRINT #a,” tendremos que” 

630 PRINT #a, "recurrir a la justicia.” 

640 PRINT #a:PRINT #a:PRINT #a:PRINT #a:PRINT #a 
650 PRINT #a,"Le saludo atentamente” 

660 PRINT #a:PRINT #a:PRINT #a:PRINT #a:PRINT #a 

670 GOSUB 680:DODE 1:END 

680 REH DP subprograma esperar 

690 LOCATE 5,25 

700 PRINT”Pulse una tecla I” 

710 xS-INKEYS 

720 IF xS-”” THEN 710 

730 CLS:RETURN 
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Lista de variables: 


a= Dispositivo de salida (0 para pantalla, 8 para Impresora) 
ad$ = Fecha de envío de la carta 
b$ = Asunto 

dm <* El Importe en DM pendiente de pago 

g$ = Sexo del cliente 

nn$ = Apellido del cliente 

op$ = Localidad con código postal 

q = Parámetro calculado para la función TA8 al editar la fe¬ 
cha de envío 

sh$ = Calle con número de la casa 
v$ = Nombre de pila del cliente 

zd$ = Fecha hasta la cual se tienen en cuenta los pagos 

Descripción del programa: 

Líneas 10- 80: Título 

Líneas 90- 170: Definición de los caracteres especiales ale¬ 
manes (véase capítulo 5.2) 
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Líneas 180-320 : Entrada de las partes subrayadas de la 
carta. Para ello, en la línea 190, se po¬ 
ne el modo de pantalla a 80 caracteres por 
línea (para entradas largas). 

Líneas 330-660 : Edición de la carta completa 

En las líneas 340-370 puede escoger usted 
si el libro se ha de editar en la pantalla 
o en la Impresora. Tenga en cuenta que una 
entrada equivocada para a no es cogida en 
el programa. En la línea 460 se calcula el 
parámetro de la función TAB para la edi¬ 
ción de la fecha de envío en la línea 470, 
para que la línea de edición completa ten¬ 
ga exactamente una longitud de 56 caracte¬ 
res. En el caso de una edición en la pan¬ 
talla, en la línea 510 se Interrumpe la e- 
jecuclón del programa (subprograma "espe¬ 
rar"), ya que la carta tiene más líneas 
que la pantalla. En las líneas 520-540 se 
edita el encabezamiento en función de la 
entrada "sexo del cliente". 

La edición del Importe en DM y de la fecha 
en las líneas 580-600 tiene lugar forma¬ 
teada. 

SI tiene que trabajar usted con Importes 
mayores, tendrá que modificar el formato. 
Aquí hay que tener en cuenta que entonces 
la línea correspondiente tiene más carác 
teres de edición. Para la fecha hemos pre¬ 
visto 10 caracteres como máximo, suficien¬ 
tes para la entrada de, p.ej.,"24.12.1985" 

Línea 670 : Salto al subprograma "esperar", modificación 
del modo de pantalla y final del programa 

Líneas 680-730 : Subprograma "esperar" 
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5.4. Procesa»Iento de textos 


En coaparación con el software profesional de procesamiento 
de textos, el programa de este capítulo, naturalmente, no es 
tan completo, al fin y al cabo, ha sido creado solamente 
para uso doméstico y no para la oficina. 

Con este programa puede usted realizar los siguientes pasos 
de procesamiento: 

- Entrar textos (por medio del teclado) 

- Mirar textos (en la pantalla) 

- Corregir textos (corregir líneas de texto. Insertar o 
borrar) 

- Leer textos (del cassette o dlskette) 

- Guardar textos (en cassette o dlskette) 

- Imprimir textos 

SI quiere utilizar usted una unidad de disco como medio 
externo de almacenamiento, tendrá que modificar o Insertar 
las siguientes líneas de programa: 
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1745 INPUT "Cómo se llama el +ex+o";n$ 
1750 OPENIN nS 


Por lo demás no es necesaria ninguna otra modificación en 
ral ación con la memoria a utilizar. 

El número de caracteres por línea puede escogerlo usted 
mismo (hasta 70 caracteres). Asimismo puede determinar 
libremente el número de líneas por página y la situación del 
margen Izquierdo para hacer la Impresión. No se necesitan 
más Indicaciones de formato. El texto es Impreso tal como lo 
entra usted y lo ve en la pantalla. 

Por el contrario, en muchos programas profesionales de 
procesamiento de textos para el CPC, el formateado, es 
decir, la distribución de un texto para ser Impreso a 
continuación, tiene lugar en un proceso de trabajo separado. 
El monitor ahora no está en condiciones de representar todo 
lo que la Impresora puede Imprimir. Además, en muchos 
paquetes de procesamiento de datos no hay que tener en 
cuenta la longitud de las líneas de texto. Usted puede 
Indicarlo correspondientemente antes de la edición. 
Naturalmente, primero puede hacerse mostrar en la pantalla 
el texto formateado. Resumiendo puede decirse que, con 
programas profesionales - además de un manejo más cómodo 
dele texto - tiene muchas posibilidades de poner por escrito 
un texto entrado. 

En el presente programa, esto es un poco diferente. En 
efecto, el número de caracteres por línea en la edición se 
limita, pero, al entrar el texto usted mismo tiene que Ir 
con cuidado de no entrar demasiados caracteres por línea. 
Solamente se dibuja una línea vertical en la pantalla que le 
Indica cuándo se ha llegado al final de una línea. Esto pasa 
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siempre cuando el cursor toca esta línea. Pulsando la tecla 
ENTER puede escribirse la línea siguiente. En qué línea y en 
qué página se encuentra usted, se le Indicará, naturalmente, 
durante la entrada del texto. Además hay que tener en cuenta 
en este programa que las comillas conducen a la edición de 
líneas. Por lo tanto, para realces, hay que utilizar el 
apóstrofo. 

En total, un texto procesado con el presente programa puede 
abarcar hasta un máximo de 300 líneas de texto 
(Independientemente de la distribución de las páginas). Esto 
representa aprox. 6 páginas escritas con máquina de 
escribir. Modificando las líneas 180 y 570 podrá usted 
entrar más líneas de texto. Entonces sólo tiene que tener en 
cuenta la capacidad limitada de memoria del ordenador. Para 
ello, o Interrumpe usted el desarrollo del programa y, con 
la función FRE, consulta el espacio de memoria libre, o bien 
incluye en su debida forma esta función en el desarrollo del 
programa, con el fin de impedir un 1 'desbordamiento de la 
memor1 a''. 

SI quiere usted completar un texto almacenado, puede leerlo 
y añadir luego nuevas líneas de texto. Pero entonces tiene 
que asumir las Indicaciones de formato "caracteres por 
línea" y "líneas por página". Para la edición de 
Impresora, solamente hay que modificar la Indicación 
"líneas por página". 

No es posible leer un texto adicional mente a otro. En esta 
caso, el texto entrado quedaría sobreescrlto. No obstante, 
un texto leído puede ser completado en cualquier espacio. 

Por lo demás, el programa se explica por sí mismo. Lo mejor 
es que lo pruebe usted en seguida. Y no saque usted el 
enchufe antes de que haya guardado su texto ... 
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Programa 


10 REM 114 
SO CLS 

30 PRINT ”114 - Programa para procesar textos" 

40 PRINT¡PRINT¡PRINT¡PRINT:PRINT:PRINT 
50 PRINT TABC9) "Bernd Kowal, 19B5” 

60 GOSUB 34S0 
70 REH 

80 REI! caracteres alemanes especiales (a sustituir por 
caracteres castellanos) 

90 REH 

100 GOTO 180:SYMBOL AFTER 90 
110 SYMBOL IES,50,866,80,666,866,SE6,83E,SO 
ISO SYMBOL 93,866,80,866,866,866,866,430.80 
130 SYMBOL 1S4,S66,SO,830,866,866,866,830,80 
140 SYMBOL 93,8BA,86C,SC6,806,806,860,836,80 
150 SYMBOL 1S3,&C6,SO,878,8C,87C,SCO,876,80 
160 SYMBOL 91,85 A,S3C,866,SE6,87E,866,866,80 
170 SYMBOL 1S6,87C,8CE,8C6,8FC,8C6,806,SFB,800 
160 DIM tSC300) 

190 OPENOUT "d”¡MEMORY HIMEM-1:CLQSEOUT 

SOO REM 

S10 REM Menú 

ESO REM 

S30 PRINT TABC15)"Menú”:PRINT 
E40 PRINT TABC33)"Entrada”:PRINT 
S50 PRINT"Texto":PRINT 
S60 PRINT" Entrar"¡TPBC36)“1”:PRINT 
S70 PRINT” Mirar”;TABC36)”3”:PRINT 
SBO PRINT” Corregir”;TABC35)"3":PRINT 
S90 PRINT" Leer”;TABC36)”4”¡PRINT 
300 PRINT" Grabar”;TABC36)”5”¡PRINT 
310 PRINT” ImprimirTABC36)”6”:PRINT 
350 PRINT" Fin de trabajo”;TflBC36)'7“ 

330 PRINT:PRINT:PRINT:INPUT”Su elección ” ; a:CLS 
340 IF a<1 OR a> 7 THEN 330 

350 QN a GOSUB 3B0,650,B50,1730,1830,1950,3360 
360 MODE 1:G0T0 330 
370 REM 

360 REM entrar textos 
390 REM 

400 IF zz>0 THEN 430 

410 INPUT"Cuantos caracteres por linea " ; zz:PRINT 
430 IF zz<l OR zz>70 THEN 410 
430 IF zs>O THEN 470 

440 INPUT"Cuantas lineas por pagina ”;zs:PRINT 
450 PRINT:PRINT”Si en una linea entra usted 
460 PRINT"se terminara la entradaGOSUB 3490 
470 GGSUB 3370 
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4BO WINDOW aO,1,7*zz.4,25 
*490 IF s-O THEN s-1 
500 IF Z<1 THEN 550 
510 kl-s*zs-zs+1:k2-s*zs-zs+z 
520 FOR i-kl TO k2 

530 PRINT tO, USING ' tttt ";i-s*zs+zs ; 

540 PRINT *Q, tSCl?:NEXT 1 
550 IF Z-ZS THEN Z-0:S-S+1 
560 z—z*l:az-az*l 

570 IF az-300 THEN PRINT:PRINT”No queda mas memoria 
disponible. ": RETURN 

500 LOCATE «1. ZZ/2*7,1:PRINT »1, S 
530 PRINT «O, USING * ## “;Z; 

600 LINE INPUT tSCaZ? 

810 IF tSíazJO'**' THEN 550 
620 tStaz)-"" 

630 Z-Z- 1;az-az-1:H:NOOW #0,1,40,1,25:RETURN 

640 RETI 

650 RETI airar textos 
660 RETI 

670 INPUT"Oue pagina ";X 

680 IF x-O THEN 670 

690 l-OGOSUB 2370 

700 UINDOW •0,l,7*zz.4,25 

710 LOCATE »1, zz/2-7.1:PRINT #1, X 

720 kl-x-zs-zs+1:k2-x«zs 

730 FOR 1-kl TO k2 

740 1-1*1 

750 PRINT aO. USING * aa ”;i-x»zs*zs; 

760 PRINT aO, tSCi) 

770 IF 1-22 THEN l-C:GOSUB 2530 

700 NEXT i:GQSUB 2530:n00E 1 

790 WINDOW aO.1,40.1,25 

0OO INPUT"Una pagina aas(s/n? ”,aS 

010 IF aS—-n" THEN RETURN 

020 IF aS<>"5* THEN 800 

030 PRINT:PRINT:GOTO 670 

040 REO 

050 RETI c or regir Textos 
660 RETI 

070 PRINT TABC151“Menu“: PRINT:PRINT 

B0O PRINT TABC30?"Entrada":PRINT:PRINT 

090 PRINT"Lineas de texto":PRINT:PRINT 

900 PRINT" Corregir";TABC33?"1":PRINT 

910 PRINT” Insertar";TABÍ33?"2":PRINT 

920 PRINT" Borrar";TPBC33?"3":PRINT:PRINT 

*nn PRINT” Terainar corrección";TABC33)"4”:PRINT 

940 PRINT:PRINT:INPLT'Su elección “¡a:nODE 2 

950 IF a<l OR a>4 THEN 070 
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9B0 IF a<4 THEN INPUT"Oub pagina ";X:PRINT 
970 ON a GOTO 990,1150,1470,1700 
900 REn 

990 REn corregir 
1000 REH 

1010 PRINT”Que línea hay” 

1080 INPUT"que corregir";y 
1030 i-Cx-l)*zs+y 

1040 PRINT:PRINT"La linea anterior 

1050 PRINT tSCi-lí¡:PRINT TABtzz+l) CHRSC211):PRINT 
1060 PRINT"La linea a corregir 

1070 PRINT tSCil;:PRINT TABCzz+1) CHRSC2111:PRINT 
ÍOBO PRINT"La linea siguiente 

1090 PRINT tSCi+1) ¡ : PRINT TABCzz+ll CHRSC211 'i : PRINT 

1100 PRINT:PRINT”Que contenido ha de tener la linea ”;y 

1110 LOCATE zz+1,17:PRINT CHRSC2111:PRINT 

1120 LOCATE 1,17:LINE INPUT tSCil 

1130 MODE 1:G0T0 870 

1140 REM 

1150 REn insertar 
1160 REn 

1170 PRINT"Entre que lineas hay que insertar” 

1100 PRINT"algo ?” 

1190 PRINT:INPUT"Numero de linea mas pequenyo ”;y1 

1200 zl-yl:yl-Cx-n»zs+yl 

1210 PRINT"La linea contiene : ” 

1220 PRINT tSCyl1;:PRINT TABCzz+l) CHRSC211) 

1230 PRINT:INPUT"Numero de linea mas grande ”¡y2 
1240 IF y2-zl“l THEN 1270 

1250 PRINT:PRINT"Hay que indicar dos lineas” 

1260 PRINT”que esten una junto a otra.”:GOTO 1170 

1270 y2“Cx-ll*zs+y2 

1200 PRINT"La linea contiene 

1290 PRINT tSCy21¡:PRINT TABCzz+1) CHRSC211) 

1300 PRINT:PRINT:PRINT"Cuantas lineas hay que” 

1310 INPUT"insertar ”;y3 
1320 az-az+y3:z-z+y3 
1330 IF z>zs THEN z-z-zs:s-s+l 
1340 FOR i-az TO y2 STEP -1 
1350 t$ti+y3)”t$Ci1 
1360 NEXT i:GOSUB 2370 
1370 UIINDOU #0,1,7+zz,4,25 
1300 FOR i-yl+1 TO yl+y3 
1390 zl-zl+1 

1400 LOCATE #1, zz/2+7,1:PRINT #1, x 
1410 PRINT #0, USING " ## ”;Zl¡ 

1420 LINE INPUT tSCll 
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1430 NEXT i 

1440 WINDOUJ #0,1,40,1,25 
1450 nODE 1:GOTO 870 
1460 REn 
1470 REH borrar 
1460 REH 

1490 PRINT'Que linea hay que borrar ?" 

1500 PRINT:INPUT"Desde el numero de linea ”;yl 

1510 zl-yl:yl-Cx-l)*zs+y1 

1520 PRINT”la linea contiene 

1530 PRINT tSCyllPRINT TABCzz+l) CHRSC21i:> 

1540 PRINT:INPUT”hasta: el numero de linea ”;yB 
1550 IF y2>-zl THEN 1580 

1560 PRINT:PRINT”E1 segundo numero de linea” 

1570 PRINT”tiene que ser mayor que el primeroGOTO 1500 

1580 y2“Cx-l)*zs+y2 

1590 PRINT”La linea contiene :” 

1600 PRINT tS(y2);:PRINT TftBCzz+1) CHRSC2115 
1610 PRINT:PRINT:PRINT TflBC10)"Estoy borrando !” 

1620 60SUB 2490 
1630 y3-y2-y1+1 
1640 FOR i-yl TO az 
1650 tSCi)-tSCi+y3) 

1660 NEXT i 

1670 az-az~y3:z-z-y3 

1680 IF z<l THEN z-z+zs:s-s-l 

1690 nODE 1:G0T0 870 

1700 REn terminar la corrección 

1710 nODE 1:RETURN 

1720 REn 

1730 REn leer datos 

1740 INPUT”Entrar nombre de texto: ”;Fp$ 

1750 OPENIN fpS 

1760 INPUT #9,zz,zs,s,z,az 

1770 FOR i-1 TO az 

1780 INPUT #9,tSCi1 

1790 NEXT i 

1800 CLOSEIN 

1810 CL5:RETURN 

1820 REn 

1830 REn grabar textos 
1840 REn 

1850 PRINT"0ue nombtre ha de tener el texto” 

1860 INPUT”a grabar ”¡nS:PRINT 
1870 OPENOUT nS 
1880 PRINT #9,zz,zs,s,z,az 
1890 FOR i-1 TO az 
1900 UIRITE #9, t$C i ) 
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1310 NEXT i 
1320 CLDSEOUT 
1930 CLS:RETURN 
19*10 REn 

1950 REn imprimir textos 
1960 REH 

1970 PRINT”Hay que modificar al valor para el” 

1990 PRINI”numero de lineas” 

1990 INPUT”por pagina Cs/nl ”;aS 
2000 IF aS-”n” THEN 2030 
2010 IF a$<>”s” THEN 1970 

2020 PRINT:INPUT”Como ha de ser de grande ”;zs 

2030 PRINT:PRINT"Que ancho ha de tener el ma rgen izquierdo T* 

2040 INPUT"Numero dB espacios en blanca ”;lr 

2050 WIDTH zz+lr 

2060 PRINT:PRINT"Hay que imprimir” 

2070 INPUT”todo el texto Cs/ní ”;a* 

2090 IF aS-”n” THEN 2140 

2090 IF aJ<>"s” THEN 2060 

2100 F0R i-1 T0 az 

2110 PRINT #8, TABClr+11 tSCií 

2120 NEXT i 

2130 GOTO 2240 

2140 PRINT:PRINT"Que pagina hay” 

2150 INPUT”que imprimir ”;x 
2160 kl-x^zs-zs+l:k2-x*zs 
2170 F0R i-kl T0 k2 
2190 PRINT #8, TftBClr+l) tSCií 
2190 NEXT i 

2200 PRINT:PRINT”Hay que imprimir” 

2210 INPUT”una pagina más (s/ní ”;a* 

2220 IF aS-"s” THEN 2140 
2230 IF aS<>”n” THEN 2200 
2240 CLS¡RETURN 
2250 REH 

2260 REN terminar el trabajo 
2270 REN 

2280 PRINT"Na habra Ud. olvidado de " 

2230 PRINT"grabar el texto ?” 

2300 PRINT"Si es asi, simplemente entre” 
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2310 PRINT”un ’oh'. de lo contrario basta” 

2320 PRlNT"la tecla espadadoraINPUT a$ 

2330 IF aS-”oh” THEN GOSUB 1B30 
2340 PRINT:PRINT:PRINT 

2350 PRINT”Ahcra puede usted desconectarme.” 

2360 PRINT:PRINT:PRINT TABCB)"Hasta la vista":END 
2370 REtl 

2380 REI1 subprograma mascara de pantalla 
2330 REH 
2400 NODE 2 

2410 UINDOUJ #1,1,80,1,3 

2420 PRINT #1,TABCzz/2)"Pagina" 

2430 PRINT #1,"Linea"; 

2440 tUINDOU #2, S+zz , 8+zz, 4,25 

2450 FOR 1-1 TD 25 

2460 PRINT #2, CHRSC211):NEXT i 

2470 RETURN 

2480 REH 

2480 REH subprograma esperar 
2500 REN 

2510 LOCATE 5,25 

2520 PRINT"Pulse una tecla ! ” 

2530 xS-INKEYS 

2540 IF xS-”" THEN 2530 

2550 CLS:RETURN 
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Lista de variables: 


a = Contestación "selección de menú" 
a$ = Cadena de contestación 

az = Número absoluto de líneas o número de líneas (refe¬ 
rido a todas las líneas de texto que se encuentren 
en la memoria del programa) 

I = Indice de control y número absoluto de líneas en la 
parte de programa "corregir" 

kl = Límite Inferior de un bucle de programa 

k2 = Límite superior de un bucle de programa 

I = Magnitud auxiliar en la parte de programa "mirar 
textos' 1 

Ir = Anchura del margen Izquierdo para la Impresión 
ní = Nombre del texto almacenado 
s = Número de páginas 
t$(I) = Línea de texto 

x = Número de líneas en las partes de programa "mirar" 
y "corregir" 

y = Número de una línea a corregir 
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yl = Número de línea más pequeño en las partes de pro¬ 
grama ''Insertar' 1 y ''borrar'' 

y2 = Número de línea más grande en las partes de progra¬ 
ma ''Insertar 1 ' y ''borrar'' 

y3 = Número de líneas a Insertar o a borrar 

z = Número de línea de una página 

zl = Número de línea de una página en la parte de pro¬ 
grama ''corregir'' 

zs = Líneas por página 

zz = Caracteres por línea 

Descripción del programa: 

Líneas 10 - 60 : Título 

Líneas 70-170 : Definición de los caracteres especiales 

alemanes 

Línea 180 : Reserva de espacio de memoria para el texto 

Línea 190 : Por medio de esta línea de programa se pro¬ 
tegen los ficheros de texto todavía por a- 
brlr, de una reorganización de memoria que 
exige mucho tiempo. Esta línea, no obstante, 
también puede suprimirse, ya que la misma, 
en una repetida ejecución del programa, oca- 
slo un mensaje de error en la línea 100. Sin 
embargo, también es posible borrar las lí¬ 
neas 70-170 con el comando DELETE antes de 
una segunda ejecución del programa, o bien 
convertir la líiea 100 en una Instrucción 
REM. 
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Líneas 200-350 : Menú de selección y correspondientes rami¬ 
ficaciones de programa a los diferentes 
subprogramas 

Línea 360 : Dado que en los subprogramas se cambia a menudo 
el modo de pantalla, eso también ocurre a- 
quí con el fin de garantizar una edición 
de menú constante 

Líneas 370-630 : Subprograma "entrar textos"' 

370-390 : Comentarlo 

400-460 : Ocupación de los parámetros zz y 
sz con valores en el caso de que 
todavía no se haya hecho y edi¬ 
ción de una explicación para el 
final de la entrada 

470 : Ramificación al subprograma "másca¬ 
ra de pantal la" 

480 : Definición de una área de pantalla 
para la entrada de textos (el 
límite derecho de ventana depen¬ 
de del parámetro "caracteres por 
linea") 

490 : Al producirse la entrada de la pri¬ 
mera línea (entonces s=0) la va¬ 
riable s se equipara a 1. 

500-540 : Se edita el texto de una página 
parcialmente escrita 

550 : SI una página está llena (entonces 
z=zs), se "abre" una nueva pá¬ 
gina (s=s+1) y la variable z se 
equipara a 0 

560 : Antes de cada entrada de línea se 
Incrementan en 1 las variables z 
y az 
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570 : 


Edición de un comentarlo y salto 
de regreso al menú cuando en la 
memoria del programa haya 300 
líneas de texto 

580-590 : Edición del número de página y 
del número de línea (referente a 
una página) 

600 : Entrada de una línea de texto. El 
índice de una línea de texto es 
siempre el número absoluto de 
línea az. 

610-630 : En la entrada del criterio de 
ruptura las variables z y az son 
decrementadas en 1 (ya que el 
criterio de ruptura no pertenece 
ai texto en sí), el área de pan¬ 
talla es definido de nuevo y 
tiene lugar un salto de salida 
de este subprograma.Por lo demás 
se hace una ramificación a la 
línea 550 para proseguir la en¬ 
trada del texto. 

Líneas 640-830 : Subprograma ''mirar textos'' 

640-660 : Comentarlo 

670-680 : Entrada de un número de página 

690-700 : La variable auxiliar 1 se equi¬ 
para a 0, se ramifica al subpro¬ 
grama ''máscara de pantalla'' y 
se define de nuevo la ventana 
de I texto 

710 : Edición del número de página 

720 : Se determinan los números (absolu¬ 
tos) de línea del principio y 
final de una página 

730-780 : Edición del texto. Después de la 
edición de 22 líneas ( véase la 
variable auxiliar 1 ) se ramifi¬ 
ca al subprograma "esperar". A- 
quí se prescinde de la aclara- 
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clón "pulse una tecla por favor" 
790-830 : Se define de nuevo la ventana de 
texto y se pueden mirar otras 
páginas. Por lo demás, tiene lu¬ 
gar un salto de salida del sub¬ 
programa. 

Líneas 840-1710 : Subprograma "corregir textos" 

840-860 : Comentarlo 

870-970 : Menú de selección y correspon¬ 
dientes ramificaciones de pro¬ 
grama, así como petición de un 
número de página 

980-1130: Parte de programa "corregir". Se 
pide un número de línea ( líneas 
1010-1020 ), se calcula e! coi— 
respondiente número absoluto de 
línea (1030), se edita la línea 
a corregir al lado de las líneas 
vecinas ( 1040-1090 ) y a conti¬ 
nuación se corr!ge( 1100-1120 ). 
Finalmente se limpia la pantalla 
y tiene lugar una ramificación 
al menú. 

1140-1450: Parte de programa "Insertar" 

Se piden números de línea, se 
calculan los números tdenttflca- 
dores absolutos y se editan las 
líneas de texto (1170-1290).Lue¬ 
go se entra un valor para el nú¬ 
mero de líneas a Insertar (1300- 
1310), se corrigen las variables 
z y az (1320-1330), en la línea 
1330 s¿» tiene en cuenta que las 
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líneas adicionales pueden reque¬ 
rir una nueva página, los índi¬ 
ces de las líneas de texto que 
tenemos son corregidos ( 1340- 
1360 ) y las nuevas líneas de 
texto pueden ser Insertadas!1360 
-1440) con la ayuda de la defi¬ 
nición de la ventana de pantalla 
y del subprograma ''máscara de 
pantalla''.A continuación se ha¬ 
ce de nuevo una ramificación al 
menú (1450). 

1460-1690: Parte de programa ''borrar''. Se 
piden números de línea,se calcu¬ 
lan y se editan las correspon¬ 
dientes líneas de texto ( 1490- 
1600 ). Luego, después de una e- 
dlclón de comentarlo ( 1610 ) se 
calcula el número de líneas a 
borrar(1630), que luego son so- 
breescrltas(1640-1660). A conti¬ 
nuación se calculan de nuevo las 
variables z y az (1670), consi¬ 
derándose de nuevo que el núme¬ 
ro de página puede varIar(1680). 
Finalmente tiene lugar un salto 
de regreso al menú (1690). 

1700-1710: Terminación de las correcciones 
borrando la pantalla y haciendo 
un salto para salir del subpro¬ 
grama 

Líneas 1720-1810 : Subprograma ''leer textos'' 

La lectura tiene lugar en pasos de tra¬ 
bajo separados para las variables numé¬ 
ricas y las variables de texto. Para el 
trabajo con dtskette, hay que modificar 
la línea 1750 ya que entonces se tiene 
que Indicar un nombre concreto de fiche¬ 
ro. 
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Líneas 1820-1930 : Subprograma "almacenar textos" 

El almacenamiento se realiza exactamente 
Igual que la lectura. El nombre del texto 
a guardar puede escogerlo usted libremen¬ 
te. No obstante, aquí hay que tener en 
cuenta que en la línea 1900 no se traba¬ 
ja con la Instrucción PRINT sino con la 
Instrucción WRITE, es decir, las líneas 
del texto se almacenan encerradas entre 
comillas dobles, para evitar que, por e- 
jemplo, comas almacenadas conduzcan a 
compaginaciones Indeseadas de líneas al 
editar. 

Líneas 1940-2240 : Subprograma "Imprimir textos" 

Después de algunas Indicaciones de forma¬ 
to (1970-2040) se limita el número de ca¬ 
racteres por línea para la edición de Im¬ 
presión (2050) y se Imprime todo el texto 
o bien una página cada vez. La línea 2160 
es aquí Idéntica a la línea 720. 

En esta parte de programa se pueden In¬ 
sertar también Instrucciones adicionales 
para el control de la Impresora ( menú de 
Impresora ). Especialmente la Instrucción 
TAB crea problemas cuando las líneas del 
texto son largas. Entonces es mejor uti¬ 
lizar Instrucciones específicas de Impre¬ 
sora tales como CHR$(27) ; 1 I';CHR$(n);(Im¬ 
presoras Epson), Indicando aquí "n" el 
valor de columna. 

Líneas 2250-2360 : Subprograma "terminar el trabajo" 

En el caso de que se haya olvidado de al¬ 
macenar su texto, todavía puede hacerlo 
usted aquí. Por lo demás, se ha llegado 
al final del programa. 
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Líneas 2370-2470 : Subprograma ''máscara de pantalla''. 

Con ayuda de la definición de dos venta¬ 
nas de pantalla se crea I a''máscara " . 

La primera ventana ( definida en la línea 
2410 ) sirve para la edición del número 
actual de líneas y páginas. En la segun¬ 
da ventana (definida en la línea 2440) se 
inscribe la limitación de líneas ( 2540- 
2460 ). La definición de la ventana de 
texto tiene la ventaja de que incluso si 
se produce un desplazamiento de las lí¬ 
neas de texto ( área de panta I I a «¿0 ), se 
conserva la ''máscara''. 

Líneas 2480-2550 : Subprograma ''esperar'' 
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5.5. Filón de Ideas 


- Felicitación de cumpleaños 

- Invitación a una fiesta 

- Cartas standard y comerciales ( facturas, reclamaciones 
etc. ) 

- Solcitudes de trabajo (carta y curriculum) 

- Cartas individuales de propaganda 

- Certificados y documentos 

- Guardar direcciones e Imprimirlas 

- Impresión de etiquetas autoadhesivas de ordenador 

- Informes, trabajos de doctorado y para diplomas, 
desarrollados profes tonal mente 

- y muchas otras cosas 
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6. El Estado y el dinero 


6.1 Advertencia preliminar 


Probablemente es usted también una de las muchas personas 
que tienen que pagar mensual mente Impuestos y cuotas de la 
seguridad social. Generalmente está usted obligado a ello. 
Pero quien tiene obligaciones también tiene derechos. Así, 
por ejemplo, tiene usted el derecho de liquidar su cuenta de 
Impuestos al cabo de un año, es decir, de presentar una 
solicitud de compensación de los Impuestos descontados del 
sueldo durante el año. Además, algún día llegará al 
''disfrute'' de percibir una pensión por jubilación. 
Naturalmente que saber si ello será un disfrute, es una 
Incógnita. Por lo tanto, y en todo caso, es preferible saber 
todo sobre su cuenta de pensión. 
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De qué me sirve aquí mi ordenador ?" quizás se 
preguntará usted. La contestación es simple: el ordenador le 
ayuda. 

Naturalmente tendrá usted que reunir sus datos personales, 
para luego poderlos Introducir en el ordenador. Pero esto es 
todo lo que debe hacer usted. El resto, es decir, el 
verdadero cálculo es realizado por el ordenador. Y estos 
cálculos pueden muy voluminoso si, por ejemplo, piensa usted 
en la determinación del porcentaje mensual medio en el 
cálculo de la pensión, o en el cálculo de la previsión 
global en la compensación de los Impuestos anuales 
descontados del sueldo. Además - y esto vale especialmente 
para la compensación anual de los Impuestos sobre la renta - 
no se le pierden las Informaciones de un programa adaptado a 
sus necesidades. Así pues, no tiene que estar usted cada vez 
reconstruyendo de nuevo las Informaciones (el hombre es 
olvidadizo), sino que basta con tener en cuenta 
modificaciones legislativas. Finalmente, puede usted 
controlar mejor las decisiones oficiales si, en todo momento 
y sin gran trabajo, puede llevar a cabo sus propios 
cálculos. 

Un problema fundamental consiste en que los programas 
presentados aquí no tienen en cuenta todos los detal les. En 
el marco de este libro es prácticamente Imposible prever las 
posibilidades técnicas de programación de sus autoridades 
financieras o de la seguridad social de su reglón. Así pues 
le Invitamos a que compare el 1 'armazón'' que le ofrecemos 
en los siguientes programas con sus necesidades personales 
y, si procede, realice ampliaciones de programa. 
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6.2. El cálculo de la pensión 


La base de cálculo de la pensión es la fórmula de la 
pensión. En ella se determina en detalle cómo se combinan 
las aportaciones del asegurado con otros factores para el 
cálculo de la pensión. Para el cálculo de la pensión de un 
asegurado sin tener en cuenta un posible Importe de 
Incremento para una prestación más elevada y sin recargo por 
hijos, la fórmula serta: 

JR = DvHS * Ba * VJ * StS 


Siendo aquí: 

JR = Pensión anual 

DvHS = Porcentaje medio personal 

Ba = Base general de cálculo 

VJ = Años de seguro 

StS = Tasa de Incremento 

Para cada año natural se fija de nuevo la base general de 
cálculo. Para el año 1983 su Importe fue de 25.445 DM. En el 
caso de que tenga usted a mano un valor más actual, 
modifique, por favor, la correspondiente línea de programa. 
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Los años de seguro resultan del tiempo Imputable de 
cotización más el posible tiempo de complemento (servicio 
militar, arresto político en la RDA, etc.), tiempo de 
descuento (tiempo de cobro del paro, tiempo de la formación 
escolar básica después de la edad de 16 años y el tiempo de 
la formación escolar superior llevada a cabo, etc.) o tiempo 
a añadir (p.ej., Incapacidad para el trabajo o de 
encontrarlo de nuevo antes de la edad de 55 años). 

Para la pensión de vejez y las pensiones de Incapacidad para 
encontrar trabajo, el porcentaje de Incremento es del 1,5 % y 
para la Incapacidad de trabajar, del 1? 

El tanto por ciento medio personal se calcula primero para 
cada año natural y luego para todo el período de cotización. 
Este porcentaje Indica en qué tanto por ciento coincide el 
sueldo bruto personal con el sueldo medio de todos los 
asegurados en el mismo período de tiempo. El límite superior 
está en el 200? 

Para el cálculo del tanto por ciento personal medio, en el 
presente programa están almacenadas las remuneraciones 
brutas anuales de todos los asegurados de los años 1983 al 
1985. Los valores de los años 1983 al 1985 (línea 440 del 
programa) son estimativos y los mismos, dado el caso, 
deberían actualizarse. 

Hay que tener en cuenta que en el desarroI lo del programa, 
el cálculo del tanto por ciento medio solamente funciona si 
entra usted el sueldo personal exacto. Hasta 1942, sin 
embargo, ''se pegaban'' exclusivamente las aportaciones en 
forma de sellos de cuota. Estas aportaciones debería usted 
tenerlas en cuenta separadamente exactamente como sellos 
''pegados' 1 después del 1942, especialmente para 
aportaciones voluntarlas. 

Así pues, el programa de este capítulo no cubre todas las 
peculiaridades y poslslblIIdades del cálculo de pensiones. 


129 



De todos modos, aquí tampoco queremos competir con las 
instituciones de seguros de la reglón. Además, lo que hemos 
dicho aquí, por medio de modificaciones legales, puede 
quedar pronto anulado. ¿ Quién sabe ? 

Así pues, especialmente si se trata de 

- Sellos de aportación 

- Seguro más elevado 

- Suplemento por hijos o 

- Peculiaridades, tales como Importes adicionales para los 
sujetos al servicio militar obligatorio además de la du¬ 
ración del servicio, o regulaciones especiales para los 
primeros cinco años del seguro, para evitar una carga 
del DvHS como consecuencia de un sueldo pequeño. 


debiera usted procurarse las Informaciones adicionales cor¬ 
respondientes. 


Programa: 


& E r á 115 

30 PRINT "115 - Programa para el calculo de pensiones" 
40 PRINT: PRINT: PRINT .-PRINT: PRINT: PRINT 
50 PRINT TAEC9) "Bernd Kcujal, 1305" 

60 GOSUB 650 

70 DIN dbvC100),bJvC100i 

BO PRINT”E1 porcentaje medio” 

90 PRINT:PRINT”personal” 

100 PRINT:PRINT:PRINT:PRINT TABC 301' "Entrada ": PRI NT 
110 PRINT:PRINT”Es conocido";TflBC33) " 1" 

120 PRINT:PRINT”Hay que calcularlo”;TftBC331"2” 

130 PRINT:PRINT:PRINT:INPUT”Su elección " ; a:CLS 
140 IF a<1 OR a>2 THEN 00 
150 ON a GOTO 160,200 

160 PRINT”Que valor tiene el porcentaje medio” 

170 INPUT”personal”;DvHS 
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iBO IF DvH5>200 THEN DvHS-200 
130 GOTO 240 
200 30SUB 330 

210 IF DvHS>200 THEN DvHS-200 

220 PRINT"E1 porcentaje medio personal” 

230 PRINT"es de : " ; ROUNDCDvHS, 2)'; "V 

240 PRINT:PRINT”Cuantos anyos de asegurado” 

250 INPUT"tiene usted ”;UJ:PRINT 

260 INPUT"Cuanto es su porcentaje de aumento ”;STS 
270 Ba-25445 

280 JR-0vHS/100*Ba*UJ*5TS/100 
230 PRINT:PRINT:PRINT 

300 PRINT”Su renta anual es de";ROUNDCJR,21 ; "Ptas.” 

310 PRINT:PRINT"Esto hace al mes”;ROUNDCJR/12,2);”Ptas.” 
320 END 

330 REH subprograma para el calculo de 
340 REN porcentaje medio 
350 RETI personal 

360 DATA 1233,1463,1642,1742,1383,2110,2074,1324 
370 DATA 1651,1583,1605,1632,1783,1856,1347,2032 
380 DATA 2156,2237,2310,2324,2232,1778,1778,1833 
330 DATA 2213,2838,3161,3573,3852,4061,4234,4548 
400 DATA 4844,5043,5330,5602,6101,6723,7328,7775 
410 DATA 8467,3223,3B33,10213,10842,11833,13343 
420 DATA 14331,16335,18235,20381,21808,23335 
430 DATA 24345,26242,27685,23485,30300,32138 
440 DATA 33000,34000,35000 
450 FOR 1-24 TO 85 
460 READ dbvC l J : NEXT i 
470 PRINT”En que anyo empezó usted” 

480 INPUT”a pagar cuotas ";J1S 
430 J1S-RIGHTSÍJlS,2i:Jl-UALCJIS) 

500 IF J1<23 OR J1>86 THEN 470 

510 PRINT:INPUT”Hasta que anyo ”;J2S 

520 J2S-RIGHTSÍJ25,23:J2-UALCJ2$) 

530 IF J2<24 OR J2>85 THEN 510 
540 IF J1>J2 THEN 470 

550 PRINT:PRINT”Indique usted su sueldo anual” 

560 PRINT”bruto de los siguientes anyos :”:PRINT 

570 FOR í-Jl TO J2 

580 PRI NT "anyo ’”¡i¡:INPUT bjvd) 

530 ue-ue+bJvCi)/dbvCil*100 
600 NEXT i 
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610 PRINT:PRINT:PRINT"Indique usted” 

S20 INPUT"meses de tiempo de cotización "¡mo 

63C DvHS“uie/ná*12 

6^*0 CLS: RETURN 

650 REI! subprcgrama esperar 

550 LOSATE 5,25 

670 PRINT"Puise una tecla ! " 

SEO ..S-INKEYS 

690 IF xS-"" THEN 660 

700 CLS:RETURN 
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Lista de variables: 


a = Contestación ''selección de menú'' 

Ba = Base general de cálculo 
bjv(l) = Sueldo anual bruto 
dbv(l) = Sueldo anual bruto medio 
DvHS = Tanto por ciento medio 
I = índice de control 

jl = Indicación del año ( comienzo del tiempo de coti¬ 
zación) 

J1 $ = Campo de entrada para jl 

j2 = Indicación del año ( final del tiempo de cotiza¬ 
ción) 

J2$ = Campo de entrada para j2 
JR = Pensión anual 
mo = Tiempo de cotización en meses 
STS = Porcentaje de Incremento 
VJ = Años de seguro 

we = Unidad de valoración (porcentaje que resulta de la 
comparación de bjv(l) con dbv(I)) 
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Descripción del programa: 


Líneas 10-60 : Título 

Línea 70 : Se reserva espacio de memoria 

Líneas 80-150 : Consulta si se conoce el valor para DvHS o 
si ha de ser calculado y las correspondien¬ 
tes ramificaciones de programa 

Líneas 160-190: Se conoce el valor de DvHS y lo entramos. 

Luego se prosigue a partir de la línea 240. 

Líneas 200-230: El valor de DvHS es desconocido y, para su 
cálculo, se hace una ramificación al sub¬ 
programa (Líneas 330-640). Se edita el re¬ 
sultado. El mayor valor de DvHS es el 200? 
véase también la Ifiea 180). 

Líneas 240-260: Se piden valores para el número de años de 
seguro y para el porcentaje de Incremento 

Línea 270 : Se ocupa el campo Ba 

Línea 280 : Se calcula la renta anual. Hay que tener en 
cuenta que con DvHS y STS se trata de por¬ 
centajes que han de ser divididos por 100. 

Líneas 290-310: Edición del resultado con valores redondea¬ 
dos a dos cifras decimales 
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Línea 320 : Final del programa 

Líneas 330-640 : Subprograma para el cálculo del DvHS 
330-350 : Comentar I o 

360-460 : Disposición y lectura de los da¬ 
tos para el sueldo bruto anual 
medio desde 1924 hasta 1985 
470-540 : Entrada del tiempo de cotización 
(principio y fin). Los datos de 
los años se entran como varia¬ 
bles de cadena para, en las lí¬ 
neas 490 y 520, reducir un posi¬ 
ble número de años de varios dí¬ 
gitos a las dos últimas cifras 
cifras ( p.ej., 1985 a 85 ). Las 
líneas 500, 530 y 540 sirven pa¬ 
ra absorber entradas absurdas. 
550-600 : Se piden los Ingresos Individua¬ 
les brutos anuales correspon¬ 
dientes al espacio de tiempo In¬ 
dicado. En la línea 590 se ac¬ 
tualiza cada vez la unidad de 
valor. 

610-630 : Entrada de un valor para el Im¬ 
porte del tiempo de cotización 
en meses y cálculo del DvHS 
640 : Borrado de la pantalla y final del 
subprograma 

Líneas 650-700 : Subprograma 1 'esperar' 1 
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6.3. Liquidación anual del Impuesto sobre la 
renta del trabajo. 


Año tras año tiene usted que realizar (o debiera usted 
realizar) la liquidación anual del Impuesto sobre la renta 
del trabajo. 0 no tiene usted ninguna Idea sobre los asuntos 
de Impuestos y da el encargo cada año a un gestor o hace 
usted mismo la consulta debido a su actividad profesional o 
por el Interés del tema en sf. En ambos casos le puede 
ayudar el programa de este capítulo. Por un lado, ofrece una 
Introducción en la materia 1 'IIqu'dación anual del Impuesto 
sobre la renta del trabajo' 1 y, por el otro, es ampllable a 
voluntad por el experto en Impuestos con conocimientos de 
BASIC. 

El fin y el sentido del programa es el cálculo del Importe 
del reintegro. Para ello es necesaria la entrada de muchos 
datos personales durante el desarrollo del programa. El 
programa mismo es, ciertamente, muy amplio pero en realidad 
nada complicado, ya que, en una parte Importante, se compone 
de Instrucciones PRINT que sirven para la explicación de las 
entradas. Estas entradas ,con frecuencia, son luego 
simplemente sumadas en función de los datos Individuales, 
con el fin de determinar las magnitudes que se pueden 
deducir, tales como costes de necesarios para la renta, 
gastos extraordlnarlos y gastos de previsión. Aquí, 
generalmente, no se dan entradas absurdas, es decir que, por 
ejemplo, se acepta la entrada de 10.000 DM para ropa de 
trabajo. 
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También las partes matemáticas del programa son 
completamente comprensibles. SI tiene Vd. p.ej., el 
conocimiento a fondo relativo al cálculo del dinero gastado 
por kilómetro o la liquidación aceptable de los gastos 
extraordlnarlos, puede ejecutar perfectamente las 
correspondientes partes del programa. Solamente podrían 
crear dificultades los cálculos correspondientes a los 
gastos de previsión y a la cuota global de previsión. No 
obstante, en estos espacios se han formado las variables z29 
a 7 . 11 , las cuales simbolizan las correspondientes líneas en 
el esquema para la auto IIquI dación (disponible en su 
Delegación de Hacienda). De esta manera, las 
correspondientes líneas de programa no es que parezcan muy 
elegantes pero, por el contrario, son más fáciles de 
ejecutar. 

Después del cálculo de los Ingresos que hay que gravar, se 
pide un valor para el Impuesto de acuerdo con la tabla de 
Impuestos sobre la renta. SI no tuviera usted ninguna tabla 
a mano, el Impuesto es estimado. Esta estimación, según 
cómo, puede ser algo Inexacta, ya que el Impuesto, partiendo 
de algunos valores almacenados, es calculado por medio de 
una Interpolación lineal, aunque la subida de los Importes 
del Impuesto, como se sabe, tiene lugar progresivamente. No 
obstante, para la Indicación aproximada del Importe del 
reintegro, este procedimiento es suficiente. 

Hasta ahora solamente hemos hablado de la liquidación anual, 
o pago, del Impuesto sobre la renta del trabajo pero no de 
la declaración del Impuesto de la renta. En ambos casos, 
ciertamente, resulta básicamente el mismo Impuesto anual, 
sin embargo, los más diversos hechos - además de la renta - 
pueden hacer necesaria una declaración del Impuesto sobre la 
renta. La consideración de estas peculiaridades tendría como 
consecuencia una enorme ampliación del programa. Así pues le 
Invitamos a "subirse 1 ' en el programa y a llevar a cabo 
usted mismo las ampliaciones (o modificaciones). Las 
Instrucciones para la solicitud de la liquidación anual del 
Impuesto sobre la renta del trabajo y para la declaración de 
Ingresos, disponibles en la Delegación de Hacienda, pueden 
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aportar ya una cierta ayuda. Ello rige válido también 
siempre que las explicaciones editadas en el desarrollo del 
programa no fueran suficientes. 

Por lo demás, hay que desearle grandes deducciones de 
Impuestos. Sin embargo, si la compra de este libro se puede 
o no deducir, como gasto extraordinario, de los Impuestos, 
tal como es posible con los libros especializados en 
Impuestos, tendrá que preguntarlo en su Delegación de 
Hacienda o a su gestor. 

Programa: 


10 rei-i 116 
eo cls 

30 PRINr”I16 - Programa para el calculo del" 

40 PRINT TABC71"Importe de devolución de la" 

50 PRINT TABC7)"liquidación anual de la renta del" 

60 PRINT TABC7)"trabajo":PRINT"Ejemplo sobre renta alemana":PRINT 
70 PRINT TABC115"Bernd Koual, 1385" 

BO GOSUB 6150 

30 REM . 

10.0 REtl datos sobre la persona 
110 REN 

180 PRINT” Preguntas sobre la persona":PRINT:PRINT 
130 PRINT"A estas preguntas puede contestar U3ted" 

140 PRINT"con la entrada de 0 o de 1.” 

150 PRINT: PRINT"siendo : 0 - no y 1 - si." 

160 PRINT:PRINT 

170 INPUT"Es usted casado "¡ve:PRINT 

180 PRINT"Estaba usted el anyo pasado empleado con" 

130 PRINT”obligaclon de cotizar para” 

800 lNPUT"la seguridad social "¡pk:PRINT 

810 PRINT"Recibio el anyo pasado" 

880 PRINT"emolumentos de previsión íquo tengan" 

830 PRINT"que declararse como " 

840 INPUT"sueldo bruto! "¡vs:PRINT 

850 PRINT"Nacío usted" 

860 INPUT"antes del 1.8.1980 ”¡al:CLS 

870 1E ve-0 THEN 430 

880 PRINT" 0 - no y 1 - 3i":PRINT:PRINT 
830 PRINT"Nacio su espDsa/esposo" 

300 INPUT"antes del 1.8.1380 "¡a le:PR1 NT 
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¡enPRinr 


310 PRINT"TrabaJa" 

320 INPUT"su esposa/esposo 
330 1F er-0 THEN 430 
340 PRINT"Estaba su esposa/esposo el anyn pasado'* 

350 PRlNT“empleada con Obligación de" 

360 PRINT’'COtlZí?f pijrd'' 1 

370 INPUT"la seguridad social 7; pke 

380 PRINT:PRINT"Reciblo el anyo pasado su espesa" 

390 PRINT”/ esposo emolumentos de previsión 'que" 

400 PRINT"se tengan que" 

410 PRINT"declarar como” 

420 INPUT"sueldo bruto ”; vse: PR1111 

430 CLS:PR1NT"A cuanto ascendió el anyo pasado" 

440 INPUT"su sueldo bruto CPtas.) "¡bltl) 

450 1F vs-1 THEN vfbC 1 )-bl C 1 .>/10*4 
460 IF vFbC1)>4800 THEN vFbCll-4000 
470 bllCl)-blCl)-vFbCl)-600 

480 PRINT: PRINT’’ñ que Importe ascendió el anyo pasado" 

490 INPUT"sus Impuestos sobre el trabajo CPtas.)"¡lstCl):PRINT 
500 INPUT"y sus Impuestos para la iglesia CPtas.1”¡kste1 ' 

510 PRINT 

520 INPUT'Xuantos hijos tiene usted en total "¡1.1 
530 PRINT: PRINT’Xuantos hijos son solo " 

540 PRINT"mantenidos por usted” 

550 PRINT"(es decir han sido asignados al” 

560 INPUT"otro miembro Familiar) "¡kiz 
570 kl-ki-klz 

580 PRINT: IF er-0 THEN 690 

590 PRINT'Xual Fue el importe del sueldo bruto" 

600 PRINT"de su esposa/e3poso el" 

610 lNPUT”anyo pasado CPtas.) ”¡blC2) 

620 IF vse-1 THEN vFbC2)-blC2)/10*4 
630 IF vFbC2)>4800 THEN vFbC2)-4800 
640 bllC2)“bl(2)-vFbC21-600 

650 PRINT: PRINT’Xual Fue el importe de los impuestos" 

660 PRINT”del sueldo de su esposa/esposo en el" 

670 INPUT”anyo pasado CPtas.) ”¡lstC2) 

680 PRINT:INPUT"y los impuestos para la iglesia CPtas. ) "¡kstC2) 
690 CLS 
700 REM • 

710 REM gastos proFeslonales ' 

720 REM *.. 

730 1-1 

740 PRINT T8BC9)"Gastos proFeslonales" 

750 IF 1-2 THEN PRINT TñBC9)"para su esposa/esposo” 

760 PRINT: PRINT T6BC33)"Entrada” 

770 PRINT: PRINT”Llsted conoce sus gastos" 

780 PRINT“proFeslonales 1” 
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2 


790 PRINT”UstBd quiBrB pcnsr b1 imparta" 

000 PRINT” global de 50.000 Ptas. 

810 PRINT”Usted quiere calcular su gastes" 

020 PRINT”profesionales 3” 

830 PRINT:INPUT"Su elección ”;al 
040 CLS 

050 IF al<>1 THEN 850 

860 PRINT:PRINT”A cuanto ascienden sus gastos” 

870 INPUT”profesionales CPtas.) ”;wkCi) 

080 GOTO 2140 

090 IF al-2 THEN wkCl)“50000:GOTO 2180 

900 PRINT” Lista de sus gastos profesionales”:PRINT 

910 PRINT”Gastos para viajes entre” 

920 PRINT”vivienda y lugar de trabajo” 

930 PRINT:PRINT T8BC33)"Entrada”:PRINT 

940 PRINT”Con el coche propio 1” 

950 PRINT”Con transporte publico 2" 

960 PRINT:INPUT”Su elección ”;a2 

970 PRINT:PRINT”Para cuantos patronos trabajo” 

9B0 INPUT”usted el anyo pasado ”¡a3 
990 PRINT:FOR J-l TO a3 
1000 IF J-3 THEN CLS 

1010 IF a3>1 THEN PRINT J;".patrono" 4 

1020 IF a2“2 THEN INPUT”Ptas. para billetes ”;fk 

1030 IF a2-2 THEN 1080 

1040 INPUT”Dias de trabajo por semana ”;ajw 

1050 INPUT”0ias de vacaciones y de enfermedad ”;ukd 

1060 INPUT”Distancia simple Cen km) ”;ekm 

1070 f k”Cajuj*52-ukd) *0.36*ekm 

108d PRINT: NEXT J:CLS 

1090 PRINT:PRINT”Cuanto abono el patrono libre de" 
1100 PRINT”impuestos para gastos de viaje el” 

1110 INPUT"anyo pasado”;erf 
1120 fk“fk-erf 

1130 CLS:PRINT”Cuantas Ptas. pago el anyo pasado” 

1140 PRINT"en cuotas a asociaciones” 

1150 PRINT"profesionales” 

1160 INPUT”Cp.ej. sindicatosbbv 
1170 PRINT:PRINT”Y en gastos para" 

1180 PRINT"utiles de trabajo Cp.ej. literatura” 

1190 PRINT”tecnica, ropa de trabajo... hasta 60.000" 
1200 INPüT”Ptas. sin justificación) " ; awa 
1210 PRINT:PRINT"Y en gastos para” 

1220 PRINT”formacion profesional” 

1230 INPUT”Cimporte total con Justificante) ";fbk 
1240 PRINT:PRINT”Y por mudanza debido a” 

1250 PRINT"motivos profesionales Cpara" 
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1.HE0 PRINT”simplif icar san 45000 Ptas. cama máxima” 
1270 PRINT”para casadas y 24000 Ptas.para solteros” 
1280 INPUI”nas 8000 Ptas. por hijo) ”¡uzk 
1280 CLS 

1300 PRINT”Gastos adicionales por manutención” 

1310 PRINT”Ccon justificante del patrono)” 

1320 LOCATE 33,4:PRINT"Entrada”¡PRINT 

1330 PRINT”Por ausencia de la vivienda de mas” 


1340 PRINT”de 12 horas 1” 

1350 PRINT 

1380 PRINT”por cambio continuo de los lugares de” 
1370 PRINT”trabajo y ausencia de la vivienda” 

1380 PRINT”de mas de 10 horas 2” 

1380 PRINT: PRINT"Para conductores profesionales” 
1400 PRINT: PRINT” ausencia de mas” 

1410 PRINT” de B horas 3" 

1420 PRINT: PRINT” ausencia de " 

1430 PRINT” mas de 12 horas 4” 

1440 PRINT 

1450 PRINT”No hay nada aplicable 5” 


1460 PRINT:INPUT”Su elección ”;a4 
1470 IF a4-5 THEN 1530 
1480 PRINT:INPUT”En cuantos dias ” ; mvt 
1430 IF a4-l THEN mfv-mvt»3:GOTO 1530 
1500 IF a4-2 THEN mfv-mvt»5:GOTO 1530 
1510 IF a4-3 THEN mfv-mvt-B:GOTO 1530 
1520 IF a4-4 THEN mfv-mvt*16 
1530 CLS 

1540 PRINT”Gastos adicionales por doble vivienda” 
1550 PRINT"domestica” 

1560 PRINT”Cpor motivos profesionales)” 

1570 LOCATE 33,5:PRINT”Entrada”:PRINT 
1580 PRINT”Con casa propia 1” 

1530 PRINT 

1800 PRINT”Sin casa propia 2” 

1610 PRINT 

1620 PRINT”No es aplicable 3” 

1630 PRINT: PRINT:INPUT”Su elección ”¡a5 
1640 IF a5-3 THEN 2060 
1650 CLS 

1660 PRINT”Gastos del primer viaje al lugar de” 
1670 PRINT”trabajo y del ultimo viaje al lugar de” 
1680 PRINT”residencia después de terminar” 

1680 PRINT”el trabajo” 

1700 PRINT¡PRINT TABC33)"Entrada”:PRINT 

1710 PRINT”Con el coche propio 1” 

1720 PRINT 
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1730 PRINT”Con transportes públicos 
1740 PRINT: INP'JT"Su elección ” ; aB:PRINT 
1750 IF aG-1 THEN 1700 

1760 INPUT”Precio del billete CPtas.) ”;mdh 
1770 GOTO 1000 

1700 INPUT”Kilcmetros recorridos ”;gkm 
1700 mdh-gkm*0.42 
1000 IF a5-2 THEN 1090 

1010 PRINT:PRINT”Su elección para sus viajes” 

1020 INPUT’’semanales a casa "¡a7: PRINT 
1B30 INPUT”Numero de viajes a casa ”;anz 
1040 PRINT: IF a7-l THEN 1070 

1050 INPUT”Precio de un billete CPtas.3 ";pfk 
1060 mdh-mdh+pfk*anz:GOTO 1000 
1070 INPUT’’Distancia CPtas.) ” ¡ ekm 
1000 mdh“mdh+ekm*0.36»anz 
1090 CLS:PRINT"Gastos de alojamientoCcon justificante) 
1900 IF a6-2 THEN PRINT”para las dos primeras semanas” 
1910 INPUT"en Ptas. ”;kdu 
1960 mdh-mdh+kdu 

1930 PRINT:PRINT”Gastos de alimentación para las dos” 
1940 PRINT”primeras semanas o 10 dias si se” 

1950 PRINT"ha viajado a casa Ccon justificante" 

1960 INPUT”maximo 2100 Ptas. por dial ”;vpk 

1970 mdh=mdh+vpk 

1900 IF a6-2 THEN 2030 

1990 PRINT:PRINT”Para los demas dias Cmax. 040 Ptas.” 
2000 PRINT”Por dia de alojamiento” 

2010 INPUT”fuera de casa ”;vpf 
2020 mdh-mdh+vpf 

2030 PRINT:PRINT”Cuanto ha pagada el patrón” 

2040 INPUT”CPtas.) para compensaciones ”¡abe 
2050 mdh-mdh-abe 
2060 CLS 

2070 PRINT”Si puede usted alegar mas” 

2000 PRINT”gastos profesionales, indiquelos” 

2090 INPUT”por favor (Ptas.) ” ¡ uwk 

2100 wk( i ) _ fk+bbv+awa+fbk+sbk+uzk+mFv+mdh + wwk 

2110 PRINT:PRINT 

2120 PRINT”Se han calculado gastos” 

2130 PRINT”profesionales por valor de ”;uikCi);“ Ptas.! 

2140 IF ukCl)>“50000 THEN 2100 

2150 PRINT:PRINT”Par lo. tanto se toma” 

2160 PRINT”el valor global de 50000 Ptas. " 

2170 uikCil-50000 

2100 bl2Ci) - bllCi)-4B0-ujkCi) 

2190 IF al-2 THEN CLS ELSE GOSUB 6150 
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2200 IF i-2 0R Br-0 THEN bl-bl2C13+bl2C25:GOTO 2250 

2210 ajw-0:ukd-0:ekm-0:f k-0:erf-O:bbv-O:awa-0:fbk-0 

2220 sbk-0:uzk-0:mfv-0:mvt-0:mdh-0:gkm-0:anz-0 

2230 pf k-0: kdu-0: wpk-0: vpf-0: abe-0: wuk-0 

2240 i-2:CLS:GOTO 740 

2250 REfl *******•**»****»»•**••• 

2260 REtl gastos extraordinarios 
2270 REH •*•**•»*•***••********«• 

2280 PRINT”Determinacion de gastos extraordinarios” 

2280 PRINT”que no son gastos de previsión !" 

2300 PRI NT:IF er-0 THEN 2350 

2310 PRINT”Se parte del importe total de los" 

2320 PRINT”gastos extraordinarios.es decir.no” 

2330 PRINT”se hace distinción entre usted" 

2340 PRINT’’y su esposa/o.” 

2350 PRINT: PRINT TABC33:> "Entrada" 

2360 PRINT:PRINT”Usted conoce sus gastos” 

2370 PRINT” extraordinarios 1" 

2380 PRINT”Usted quiere poner el valor global" 

2380 PRINT" de 16000 Ptas. para solteros o." 

2400 PRINT” de 35000 Ptas. para los” 

2410 PRINT" casados 2" 

2420 PRINT”Usted quiere calcular sus gastos” 

2430 PRINT" extraordinarios 3” 

2440 PRINT:INPUT”Su elección ! ";aB 
2450 CLS 

2460 IF ve-0 THEN pb-16000 ELSE pb-35000 
2470 IF aBOl THEN 2510 

2480 PRINT:PRINT”fl cuanta suben ten Ptas . " 

2430 INPUT"Sus gastos extraordinarios ”;sa 
2500 GOTO 3300 

2510 IF a8-2 THEN sa»pb:G0T0 3340 

2520 PRINT” Su relación de gastes extraordinariosPPINT 
2530 PRINT"Indique CPtas.I,que pagos de pensiones' 

2540 PRINT"o cargas permanentes ha hecho” 

2550 PRINT"el anyo pasado." 

2560 PRINT:PRINT"Tenga en cuenta que estos gastos” 

2570 PRINT”se basan en obligaciones" 

2580 PRINT"es decir.se tienen que” 

2580 PRINT"hacer obligatorlamentePRINT 
2600 PRINT”Ademas hay que considerar que si se” 

2610 PRINT"pagan rentas vitalicias selo consta" 

2620 PRINT”como gasto extra, del que solo se puede" 

2630 PRINT"deducir la correspondiente parte deL" 

2640 PRINT”beneficio del derecho del pensionista” 

2650 PRINT”CInfórmese debidamente !}." 

2660 PRINT:INPUT"Ptas. ”;rdl 
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2670 CLS 

26B0 PRINT”Indique ten Ptas.1 su cuota de” 

2690 PRINT"manutención para el cónyuge divorciado” 
2700 PRINT”o que vive permanentemente separado.” 
2710 PRINT:PRINT"Si estos gastos están sujetos a ” 
2720 PRINT"tributacion per parte del receptor Cver” 
2730 PRINT”prueba anexo ul , se puede poner el” 

2740 PRINT”importe máximo de 54000 Ptas.” 

2750 PRINT"Por lo demas los gastos de manutención" 
2760 PRINT”se consideran gastos extraordinarios y" 
2770 PRINT"no pueden sobrepasar el importe” 

2780 PRINT"máximo de 22000 Ptas.” 

2790 PRINT:INPUT"Ptas . ”;ule 
2800 CLS 

2810 IF kstCll-0 AND kstC2!=0 THEN 2860 
2820 PRINT”A cuanto subió el anyo pasado la” 

2830 PRINT”devolucion del impuesto para la iglesia. 
2840 INPUT"Ptas. ";ker 

2850 kae-kstai+kstC21-ker: PRINT: PRINT 

2860 PRINT"Indique sus gastos de asesoramiento” 

2870 PRINT"fiscal si no los ha hecho” 

2880 PRINT”constar ya como gastos profesionales.” 
2890 PRINT:INPUT"Ptas.”;sks:CLS 

2900 PRINT"Tuvo usted gastos para su formación” 

2910 PRINT"profesional o para la de" 

2920 PRINT”su cónyuge ?” 

2930 PRINT"Estos gastas se pueden deducir hasta” 
2940 PRINT”un máximo de 54000 Ptas. para cada uno” 
2950 PRINT"C72000 si el alojamiento es ” 

2960 PRINT"fuera del domicilio particular.” 

2970 PRINT”ñqui se ponen, entre otros, tasas” 

2980 PRINT"de estudios, gastos material educativo,” 
2990 PRINT"pero también los gastos para” 

3000 PRINT”viajes entre vivienda y centro de” 

3010 PRINT”formacionCsi se viaja con el propiq” 

3020 PRINT”coche,se reconoce, sin Justificante” 

3030 PRINT”25 Ptas. por kilómetro!, asi como” 

3040 PRINT”gastos extra para pensión completa si” 
3050 PRINT"se esta fuera de casal. 

3060 PRINT:PRINT"fl cuanto ascendieron sus gastos” 
3070 INPUT”CPtas.1 " ; aeb:CLS 

30B0 PRINT"Ha efectuado usted dispendios para” 

3090 PRINT” al causas científicas y” 

3100 PRINT” culturales” 

3110 PRINT” bl fines benéficos" 

3120 PRINT” religiosos y de utilidad” 

3130 PRINT" publica” 
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3160 

3170 

3180 

3180 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3280 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3330 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3480 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3530 

3600 


PRINT’’Ccon confirmación dal” 

PRINT"receptor) ?” 

PRINT:PRINT”0bserve que para los puntos” 
PRINT”a) y b) pdede considerar, para cada uno, 
PRINT”como máximo el 5 por ciento de” 
PRINT"sus ingresos. En su caso son” 

PRINT CblCl)+blC2))/100*5;”Ptas.” 

PRINT:INPUT”Indique un importe en Ptas. ";spb 


CLS 

PRINT”Si puede hacer constar mas” 

PRINT”gastos extraordinarios, indiquelo” 
INPUT”por favor Cen Ptas.V¡usa 
sa-rdl+ule+kae+sks+aeb+spb+wsa 
PRINT:PRINT 

PRINT”Se han calculado gastos extraordinarios 
PRINT”por valor de ”;sa;" Ptas. !” 

IF sa>-pb THEN 3340 

PRINT:PRINT”Por lo tanto se toma” 

PRINT”el importe global de”;pb;"Ptas." 


sa-pb 

bll-bl-sa 

IF a8-2 THEN CLS ELSE GOSUB 6150 

REN **«••*•*«*•***«*•**• 


REH gastas de previsión 
REH •*«•*•**•**•**•«**** 

PRINT” Gastos de previsión”:PRINT 

PRINT:IF er-0 THEN 3450 


PRINT”Se parte del total de gastos de" 
PRINT”prevision, es decir, no se ha" 
PRINT"distinguido entre usted” 

PRINT”y su cónyuge.":PRINT:PRINT 
PRINT”Indique la participación del empresario 
PRINT”en los importes de la seguridad social” 
PRINT"estatal y/o las cuentas de un seguro" 
PRINT”de vida eximente (o gastos equiparados” 
PRINT”, sin las aportaciones del empresario” 
PRINT”exentas" 

PRINT”de impuestos)" 

PRINT:INPUT”Ptas. ";ags:PRINT 
PRINT"Indique la parte del empresario" 
PRINT”correspondiente al seguro de pensiones” 
PRINT”estatal y/o las aportaciones libres" 
FRINT”de impuestos del empresario a gastos” 
PRINT”empresariales . ”:INPUT”Ptas. ”;agr:CLS 
PRINT”Indique los importes correspondientes” 
PRINT"a los siguientes puntos Csi procede," 
PRINT”restando la aportación del empresario” 
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3610 PR INI "exenta de impuestos;.'" 

3630 PRINT"Si no surten ningún efecto” 

3630 PRINT"sobre los bienes PRINT 

3640 PRINT"Seguro voluntario de empleados para 


3650 PRINT"percibir una” 

36E0 INPUT "pensión mas elevada.” ; arh 

3670 PRINT”Seguro de enfermedad" 

3680 INPUT"voluntano. ”;fkv 

3680 PRINT"Seguro de accidentes” 

3700 INPUT”voluntaric . ”;fuv 

3710 PRINT”Seguro de vida y” 

3730 INPUT”de entierro .”;lvs 

3730 PRINT"Seguro de responsabilidad civil Ccon 
3740 PRINI"seguro de coche y de” 

3750 INPLIT”def ensa civil) " ; hpv 


3760 PRINT”Cuotas para la caja de ahorro-vivienda” 

3770 PRINT"Csolo si no se ha solicitado ninguna ” 

3780 INPUI"subvención para vivienda) ...”;bbs:CLS 
3790 vb-ags+arh+fkv+fuv+lvs+hpv 

3800 IF ve-1 THEN Z39-6000:z36-46B0+ki*600+kiz*300 
3810 IF ve-0 THEN z29-3000:z36-2340+ki*600+kiz*300 
3830 IF pk-0 THEN agr-blC1)/100*9 
3830 IF er-1 THEN 3850 

3840 IF pke-0 THEN agr-agr+blC3)/100*9 
3B50 z31-z29-agr 

3860 z33-vb-z31:IF z33<0 THEN z33-0 
3B70 IF vb<z31 THEN z33-vb ELSE z33-z31 
3880 z35-z33+bbs 

3890 IF z35<z36 THEN z37-z35 ELSE z37-z36 

3300 z3B-z35-z36:IF z3B<0 THEN z3B-0 

3910 IF z3B/3<z36/3 THEN z41-z3B/3 ELSE Z41-Z3B/3 

3330 z42-z33+z37+z41 

3930 PRINT”Gastos de previsión calculados” 

3940 PRINT"deducibles :”;z43 ; ” Ptas.”:PRINT:PRINT:PRINT 
3950 REH ***»******»***-******•••••*»•*«* 

3360 REH calculo del importe total de previsión 
3970 REH »*»*•****•*»••»**•»***•*••»•***• 

33B0 z46-bll(l)+bllC3) 

3930 IF pkopke 8ND er-1 THEN 4170 
4000 REH calculo del importe global dB 
4010 REn previsión sin reducción Cgrupo fi) 

4030 REN o del global reducido 
4030 REN Cgrupo B) 

4040 Z47-Z46/100*9 

4050 IF pk-1 THEN Z48-2340* Cve+1):z51-1170*Cve+1) 

4060 IF pk-0 THEN Z4B-1000*Cve+1):z51-1000*Cve+1) 

4070 z48-z4B+ki*600+kiz*300:z51-z51+ki*300+kiz*150 
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4DB0 IF z47<z4B THEN Z49-Z47 ELSE z49-z4B 
4090 IF z47<zSl THEN z52-z47 ELSE zS2-z51 
4100 vp-z49+z52 
4110 GOTO 4340 

4120 REH calculo del global de previsión para 

4130 REH cónyuges que cobran sueldo los dos y 

4140 REH de los que uno corresponde al 

4150 REH grupo A y el otro 

4160 REN al grupo B 

4170 IF pk-1 THEN i-1 ELSE i-2 

41B0 z55“bllCi)/100*18 

4190 IF í-l THEN i-2 ELSE i-1 

4200 zS6-bllCi)/100*9:z57-1000 + ki*600+kiz*‘300 
4210 IF z56<z57 THEN z5B-z56 ELSE z5B-z57 
4220 z60-1000+ki*300+kiz*150 
4230 IF z56<z60 THEN z61-z56 ELSE z61-z60 
4240 z62-z55+z58+z61:z64-4680+ki*B00+kiz*300 
4250 IF z62<z64 THEN z65-z62 ELSE zE5-zB4 
4260 z67-Cz62-z64;i/2: IF z67<0 THEN z67-0 
4270 IF z67<z64/2 THEN zE9-z67 ELSE zBS-zE4/2 
4280 z70-z65+z69:z72-2000+ki*600+kiz*300 
4290 IF z5E<z72 THEN z73-z56 ELSE z73-z72 
4300 z75-2000*ki*3C0+kiz*150 
4310 IF z56<z75 THEN z76-z56 ELSE z7E-z75 
4320 z77-z73+z76 

4330 IF z?0>z77 THEN vp-z70 ELSE vp-z77 

4340 REI1 el valor global de previsión calculado 

4350 RE!'1 se redondea al importe en Ptas. 

4360 REH siguiente que sea divisible sin resto 
4370 REN entre 54 

4380 IF INTC vp3 /S4<> I NT i I NT i vp.' 1 /541 THEN 4400 
4390 vp-1NTC vp;' : GOTO 4410 
4400 vp-vp-i:GOTO 4380 

4410 PRINT"Importe global de previsión calculado 
4420 REI1 importe mínimo 

4430 IF vp<300 AND ve-0 THEN vp-300:GCTG 4460 
4440 IF vp<B00 AND ve-1 THEN vp-B00:GCTD 4460 
4450 GOTO 4480 

4460 PRINT:PRINT"Se aplica el importe mínimo de" 

4470 PRINT vp ; ” Ptas.” 

4480 IF z42>vp THEN abv-z42 ELSE abv-vp 

4490 PRINT;PRINT:PRINT:PRINT”Importe deducible para" 

4500 PRINT’’gastos de previsión : ” ¡ abv ¡ "Ptas . " 

4510 GOSUB 6150 

4520 REN ***»*••*»»»****•****•»•«*••*•»* 

4530 REH cargas extraordinarias 

4540 REH »***»«*•»*****•»********»***»» 
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4550 PRINT” Cargas extraordinarias”:PRINT 
4560 IF er-0 THEN 4610 

4570 PRINT"Se parte del importe total de las” 

4580 PRINT"cargas extraordinarias,es decir" 

4530 PRINT”no se distingue entre usted” 

4600 PRINT”y su esposaPRINT 

4610 PRINT”mas información sobre los puntos” 

4620 PRINT"siguientes, la puede sacar, p. ej . del" 

4630 PRINT”manual para la declaración de” 

4640 PRINT "la renta .": PR INT: PRINT: PRINT 

4650 PRINT”Los impedidos físicos y supervivientes” 

4660 PRINT”pueden exigir importes globales” 

4670 PRINT”(segun el grado de incapacitacion)” 

4680 PRINT”o aportar Justificantes." 

4630 PRINT:INPUT”Indique un importe en Ptas. ";kub 
4700 CLS 

4710 PRINT:PRINT”Puede deducir gastos hasta 72000 Ptas. 
4720 PRINT”anuales si ha empleado una" 

4730 PRINT”asistenta para la casa” 

4740 PRINT"(en este caso usted o su cónyuge han de” 
4750 PRINT”tener por lo menos 60 anyos o bien un” 

4760 PRINT"miembro de la familia ha estado enfermo” 
4770 PRINT”o muy impedido físicamente) " 

4780 PRINT”o si usted o su cónyuge estuvo en un" 

4730 PRINT”establecimiento de salud.” 

4800 PRINT:INPUT"Indique un importe en Ptas. ”¡bhh 
4810 PRINT:PRINT 

4820 PRINT”Puede hacer constar un importe libre para” 
4830 PRINT”casos especiales (como refugiado” 

4840 PRINT"expulsado o” 

4850 PRINT"dBportado,etc.1 ?” 

4860 PRINT:INPUT”Indique un importe en Ptas. ”¡fbf 
4870 CLS:PRINT”ha pagado usted mantenimiento para" 

4880 PRINT”un hijo que fiscalmente no” 

4830 PRINT”depende de usted ? (en caso afirmativo ” 
4300 PRINT”puede indicar 36000 ptas.)” 

4310 PRINT:INPUT”Importe en Ptas. ”;fuk:PRINT:PRINT 
4320 PRINT”Si es usted soltero y trabaja,en caso” 

4330 PRINT”de tener hijos, puede hacer constar” 

4340 PRINT”un importe exento" 

4350 PRINT"de 72000 Ptas.” 

4360 PRINT:INPUT"Importe en Ptas. ”;kba:CLS 
4370 PRINT”Si ha ayudado usted a parientes” 

4380 PRINT”necesitados, puede hacer constar sus" 

4330 PRINT"gastos Justificados hasta un importe de” 
5000 PRINT”220000 Ptas. por cada persona que" 

5010 PRINT”haya mantenido. No obstante” 
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5020 PRINT”a este ímparts máxima se le imputan" 

5030 PRINT”los ingresas propias de la persona ” 

5040 PRINT”mantenida, si las mismos sobrepasan" 

5050 PRI NT"las 250000 Ptas.” 

5060 PRINT”Para parientes que están en un estado" 

5070 PRINT”del Este puede Ud. descontar 2400 Ptas.” 
50B0 PRINT”por paquete grande, y 1B00 Ptas. por " 

5090 PRINT”pequenyo (otros gastos con Justificante” 
5100 PRINT"p.ej. si ha visitado a sus parientes," 

5110 PRINT"un valor global de 3000 Ptas. o si ha” 

5120 PRINT”tenido visita de parientes del bloque” 

5130 PRINT”oriental, un importe de 600 Ptas.,” 

5140 PRINT"por visitante y dia de visita.” 

5150 PRINT:INPUT”Indique usted un valor en Ptas. ”;ubp 
5160 CLS:PRINT"Puede usted hacer constar un imparte" 
5170 PRINT”exento para la formación” 

5180 PRINT”de sus hijos” 

5190 PRINT’Hay los siguientes importes exentos :" 

5200 PRINT:PRINT” Hijos” 

5210 PRINT” menores IB mayores IB” 


5220 PRINT”alojados fuera” 

5230 PRINT“de casa 5400 Ptas. 125000 Ptas.” 

5240 PRINT”otros casos nada 72000 Ptas." 

5250 PRINT:PRINT”Los ingresos de mas de 150000 Ptas." 
5260 PRINT"se deducen del” 

5270 PRINT”importe exento.” 

5280 PRINT:INPUT"Importe en Ptas. " ; afb:CLS 
5290 PRINT”Las siguientes cargas extraordinarias” 

5300 PRINT"solo son tenidas en cuenta si las” 

5310 PRINT"mismas sobrepasan la carga exigible a” 

5320 PRINT"usted. Esta exigibilidad esta ” 

5330 PRINT"tecnicamente considerada en el programa” 
5340 PRINT”Puede Ud. pues indicar la suma de sus" 

5350 PRINT”gastos reales correspondientes a estos” 
5360 PRINT”puntos . ” 

5370 PRINT”A estos gastos corresponden, entre" 

5380 PRINT”otros :” 

5390 PRINT”6astos de entierro, de divorcio, del" 

5400 PRINT”vehiculo, de impedimento físico,” 

5410 PRINT”gastos de emfermedadisi no han sido" 

5420 PRINT”pagados por el seguro), de tratamiento” 
5430 PRINT”, gastos de reequipamientoCpara” 

5440 PRINT”enseres y ropa)etc.”:PRINT 

5450 INPUT"Indique usted un importe en PTAS.”;aab:CLS 

5460 REhl Lo que se le puede exigir 

5470 IF ki-0 AND er-0 THEN pge-5 

5480 IF ki-0 AND er-1 THEN pge-4 


150 



5490 IF ki-1 0R ki-2 THEN pgB-2 
5500 IF ki>2 THEN pge-1 

5510 IF bl>30000 THEN pge-pge+l:IF ki>2 THEN pge-1 
5520 aab-aab-b}/100*pge:IF aab<0 THEN aab-0 
5530 agb-kub+bhh+Fbf+fuk+ubp+afb+kba+aab 
5540 PRINT”E1 importe total de sus cargas” 

5550 PRINT”extraordinarias asciende a" 

5550 PRINT agb;”Ptas.”:GOSUB 5150 

5570 REH *»•••«••*****•**•*•********•»***•*«*»*•**• 

5580 REn calculo de renta sujeta a tributación 
5590 REn *«•****•»**•**•*••*•**•*•»**»*****•***«*»» 

5600 vek-bll-abv-agb-al*720-ale»720-ki*432-kiz*216 

5610 IF ve-0 AND ki>0 THEN vek-vek-4212 

5620 PRINT”Sus ingresos sujetos a tributación” 

5630 PRINT”ascienden a :”¡RÜUNOCvekl;”PtasPRINT 
5640 REH •*•***•«•••***•***•******•****•••• 

5650 REH calculo del importe a devolver 
5660 REn *•*•**«*•••******•*•*****•***»»•** 

5670 PRINT:PRINT”Indique el importe de sus" 

5680 PRINT”Impuestos sobre el sueldo según tabla” 

5690 PRINT"que sirve para calcular” 

5700 PRINT"el mismo. Si solo pulsa usted la” 

5710 PRINT”Tecla-ENTER Csin indicar un importe:'" 

5720 PRINT”saldra un valor aproximado Cque puede” 

5730 PRINT"sobrepasar el importe verdadero en" 

5740 PRINT"1B00 Ptas. como” 

5750 PRINT"maximol y que es" 

5760 INPUT”el que se toma ”;stt$ 

5770 IF sttSO”” THEN stt-UfiListtS3 : GOTO 5940 

5780 IF ve-1 THEN vek-vek/2 

5790 IF vek<-4265 THEN stt-0:BDT0 5930 

5800 IF vek<-17711 THEN stt-Cvek-4212)'100*22:SOTO 5930 
5810 IF vek<-20465 THEN u-17765:O-20465:a-297C:b-3S04:GOTO S8eC 
5B20 IF vek<-23219 THEN u-20519:0-23219:a-3617:b-4345:GOTO 5980 
5B30 IF vek<-25973 THEN u-23273:0-25973 : a-4361:b-5176:GOTO 5980 
5840 PRINT"Para unos ingresos de esta cuantía” 

5850 PRINT”nc hay ningún proceso de aproximación.” 

5860 PRINT”Intentelo pues con una entrada” 

5870 INPUT”. Impuestos según la tabla ”¡stt:G0T0 594C 
5880 d-b-a:d-d/49:a-a-d 
5B90 FOR i—u TG o STEP 54 
5900 a-a+d 

5910 IF vek<-i THEN stt-a:GGTG 5930 
5920 NEXT i 

5930 IF ve-1 THEN stt-stt*2 

5940 Jks-Cstt-ki*600-kiz*300:'/100*9 

5950 IF Jks<0 THEN Jks-0 
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5960 zek-kstC 1 !i+kstC2)-Jks 
5970 CL5:IF zek<0 THEN zek-0 

59B0 PRINT” Reten- impuestos importe a " 

5990 PRINT” clones anuales compensar" 

5000 PRINT"imptos.-":PRINT"d.trab.”¡ , 

6010 PRINT USING "ttttittt##### " ; ROUNDC lsti 1.1 + isti2!' > ; 

6020 PRINT USING ”#########";ROUNDCsttl¡ 

6030 PRINT USING " ; ROUMDUst C i) + lst (. 21 -st t 

6040 PRINT:PRINT"Impuestos-":PRINT"iglesia"¡ 

6050 PRINT USING "######### " ¡ ROUNDC kstCl .1 + kst (2 :D ¡ 

6060 PRINT USING ”#########";ROUNDCJks)¡ 

6070 PRINT USING " ; ROUNDC zel:i 

6090 PRINT:PRINT:PRINT 

6090 PRINT"Importe a compensar : " ¡ ROUNDCistC 1 ) + lstC2 > -stt+zel: ; "Ptas. 
6100 PRINT:PRINT:PRINT 

6110 PRINT"se trata de valores redondeados 

6120 PRINT:PRINT:PRINT:PRINT TPBC12VFin del programa” 

6130 PRINT:PRINT 
6140 END 

6150 REH UP subpragrama esperar 

6160 LOCOTE 7,25 

6170 PRINT”Pulse una tecla !” 

6160 xS-lNKEY$:IF x$-"” THEN 61B0 
6190 CLS:RETURN 
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Lista de variables: 


Aquí las variables no se ordenan alfabéticamente sino que 
son listadas de acuerdo con su aparición en las diferentes 
partes del programa, con el fin de conseguir una mayor 
c I ar I dad. 

Datos sobre la persona: 
ve = Casado (0=no, 1=sí) 

pk = Círculo de personas ( 1=círculo de personas A, 0=círcu- 
lo de personas B, véase esquema para la autoll- 
quldaclón ) 

vs = Compras de aprovisionamiento (0=no, 1=sí). 

al = Edad ( 0=no, 1=sí, véase el día fijado para el Importe 
exento según edad) 

ale = Edad del marido (0,1) 

er = Actividad profesional del marido (0=no, 1=sí) 
pke = Círculo de personas del marido (0,1) 
vse = Compras de aprovisionamiento del marido (0,1) 
bl(1) = Sueldo bruto del solicitante 

vfb(l) = Importe de aprovisionamiento exento del solicitante 
bll(1) = bI(1)-vfb(1)-600,600=Importe de Navidad exento 
Ist(1) = Impuestos sobre la renta pagados por el solicitante 
kst(1) = Impuestos eclesiásticos pagados por el solicitante 
kl = Número de hijos 
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klz = Número de los hijos llamados ''de pago" 
bl(2) = Sueldo bruto del marido 

vfb(2) = Importe de aprovisionamiento exento, del marido 
bII(2) = bl(2)-vfb(21-600,600=Importe de Navidad exento 
Ist<2) = Impuestos sobre la renta pagados por el marido 

Gastos necesarios: 

I = Indice (l=solIcltante, 2=marIdo) 

J = Variable de control 

a1-a7 = Contestaciones de menú 

wk(1) = Gastos necesarios del solicitante 

wk(2) = Gastos necesarios del marido 

bI2(1) = bII(1)—480—wk<1), 480=lmporte exento del trabajador 

bI2(2) = bI1(2)—480—wk(2), 480=lmporte exento del trabajador 

bl = Importe total de los Ingresos = bI2(1)+b12(2) 

ajw = Días de trabajo por semana 

ukd = Días de vacaciones y de enfermedad 

ekm = Distancia al puesto de trabajo en kilómetros 

fk = Gastos de viaje 
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erf = Reintegro por el empresario de los gastos de viaje 
exentos de Impuestos 

bbv = Cuotas para asociaciones profesionales 
awa = Gastos para medios de trabajo 
fbk = Costos de perfeccionamiento 
uzk = Gastos de mudanza 

mfv = Gastos adicionales para la manutención 

mvt = Número de días referentes a mfv 

dh = Gastos adicionales para mantener dos casas 

gkm = Kilómetros recorridos 

anz = Número de viajes a casa 

pfk = Precio de un billete 

kdu = Gastos de alojamiento 

vpk = Gastos de manutención 

vpf = Gastos de manutención para el tiempo sucesivo 
abe = Indemnizaciones del empresario 
wwk = Otros gastos de propaganda 
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Gastos extraordinarios: 


sa = Gastos extraordinarios 
wsa = Otros gastos extraordinarios 
pb = Importe global 
bII = bl-sa 

rdl = Rentas y cargas permanentes 

ule = Prestaciones de mantenimiento ''marido'' 

a8 = Contestación de menú 

ker = Reintegro del Impuesto eclesiástico en el año ante¬ 
rior 

kae = Impuesto eclesiástico pagado deducido el reintegro 

sks = Gastos de asesoramlento fiscal como gasto extra 

aeb = Gastos para la propia formación profesional 

spb = Donativos y cuotas para fines científicos, culturales 
caritativos, eclesiásticos, religiosos y de utilidad 
públlea 

Gastos de previsión: 

ags = Participación del trabajador en la seguridad social o 
en otras prestaciones de similar nivel 

agr = Participación empresarial en el régimen legal de pen¬ 
siones o subvenciones exentas de Impuestos del empre¬ 
sario para gastos de similar nivel 
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arh = Seguro voluntarlo más elevado para empleados y pen 
sIones 

fkv = Seguro de enfermedad voluntarlo 

fuv = Seguro de accidentes voluntarlo 

Ivs = Seguro de vida y seguro de entierro 

hpv = Seguro de responsabilidad 

bbs = Cuotas de ahorro vivienda 

vb = Cuotas de seguro (en total) 

z29 

. = Variables auxiliares ( véase esquema para la autollqul 

. dación) 

z42 

Cálculo del total de la previsión: 

z46 

• 

. = Variables auxiliares ( véase esquema para la autollqul 

. dación) 

z77 

vp = Total de la previsión 

abv = Importe deduclble para los gastos de previsión 


157 



Cargas estraordInarlas: 


agb = Cargas extraordlnarlas 

kub = Gastos si es usted disminuido físico o famtllar del 
fI nado 

bhh = Ocupación de una asistenta o con alojamiento en casa 

ff = Importe exento para casos especiales 

fuk = Importe exento para el caso de que haya obligaciones 
de mantenimiento de niños 

ubp = Subvención para personas necesitadas 

afb = Importe libre para formación 

kba = Gastos para el cuidado de niños de personas solas 
aab = Otras cargas extraordinarias 
pge = Porcentaje del Importe total de los Ingresos 
Cálculo de la renta Imponible: 

vek = renta sometida al pago de Impuestos = Importe total 
de los Ingresos - yastos especiales - obv - agb - 
Importe exento para la pensión de vejez - Importe li¬ 
bre para el mantenimiento de la casa - Importe libre 
para los niños 

Cálculo del Importe del reintegro o a Ingresar: 
stt$ 

= Impuesto sobre la renta según la tabla del Impuesto. 


stt 
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u = Límite Inferior de la renta en la vía de aproxima¬ 
ción para la determinación del Impuesto sobre la 
renta 

o = Límite superior de la renta en la vía de aproxima¬ 
ción para la determinación del Impuesto sobre la 
renta 

a = Impuesto sobre la renta correspondiente al límite 
Inferior de la renta 

b = Impuesto sobre la renta correspondiente al límite 
superior de la renta 

d = b -a 

zek = Impuesto eclesiástico a devolver 

jks = Impuesto anual eclesiástico 
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Descripción del programa: 


Líneas 10-80 : Título 

Líneas 90-690 : Datos de la persona 

Líneas 700-2240: Gastos necesarios 

Líneas 2250-3350 : Gastos extraordinarios que no son gas¬ 
tos de previsión 

Líneas 3360-3940 : Gastos de previsión 
3360-3780 : Entradas 
3790-3940 : Cálculo de los gastos de 
previsión deduclbles 

Líneas 3950-4510 : Cálculo de la previsión global 

Líneas 4520-5560 : Cargas extraordlnarIas 

5460-5520 : Cálculo de lo exlglble 

Líneas 5570-5630 : Cálculo de la renta sujeta a tributa¬ 
ción 

Líneas 5640-6130 : Cálculo del Importe a devolver o In¬ 
gresar. 

5780-5930 : Estimación del Impuesto 
5940-6130 : Expresión -final 

Línea 6140 : Final del programa 

Líneas 6150-6190 : Subprograma ''esperar'' 


160 



6.4. Filón de Ideas 


- Comprobar las condiciones para el derecho a percibir la 
paga y subsidio de paro y realizar los cálculos 

- Almacenar y manipular la cesta de la compra para la deter¬ 
minación del juego de reglas para la prestación social 

- Programar el presupuesto para la vivienda 

- Fomento estatal del ahorro para la vivienda (primas y ven¬ 
tajas fiscales) 

- Tabla de costes procesales 

- Radioscopia de la jungla de subvenciones 

- El presupuesto nacional en una ojeada 

- Y muchas cosas más 
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7. ECONOMIA DOMESTICA Y SALUD 


7.1. Advertencia preliminar 


En primer lugar deseamos dejarlo claro: en este capítulo no 
presentamos ningún programa de contabilidad financiera para 
la economía doméstica. Al fin y al cabo, una economía 
doméstica normal tampoco es como llevar una empresa artesana 
mediana. Así pues, si está usted Iniciado en los secretos de 
la doble contabilidad, puede olvidarlos aquí tranquilamente. 
Aquí más bien se le ofrece una ayuda técnica de programación 
para el mantenimiento (u obtención) de una visión de 
conjunto relativa a los costes que comporta una economía 
doméstica. 

En este capítulo, además, se trata del tema salud. Existen 
múltiples posibilidades para la aplicación de su CPC al tema 
salud. Piénsese, por ejemplo, en los planes de jogglng o de 
dieta. Aquí, en cambio, vamos a contentarnos con un programa 
contador de caloría - , No en último lugar es muy práctico 
este programa ya que, para los diabéticos, se puede pasar 
sin grandes problemas de calorías a unidades de pan. El 
cambio a otros valores alimenticios, naturalmente, es 
asimismo posible. 
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1 . 2 . La economía doméstica racional 


Cuanto más razonablemente administre usted su dtnero, tantas 
más cosas podrá permitirse. Seguramente, esta opinión tan 
ampliamente generalizada es correcta. Pero ¿ qué significa 
aquí •'razónabIemente'' ?. Al consumidor (consumidores lo 

somos todos) a menudo apenas le es posible Juzgar la calidad 
de un producto. Además, en nuestra economía los precios 
están permanentemente en movimiento. Así pues, no es tan 
sencillo comportarse razonablemente. 

Por ello, quizás tenga sentido preguntarse, en qué, al fin y 
al cabo, se gasta el dinero en la economía doméstica. 
Alguten que todavía no se haya hecho nunca esta pregunta, se 
quedará asombrado cuando vea cómo se distribuyen sus gastos 
en las diversas categorías tales como vestir, alimentación, 
viajes, etc.. Semejante control de sus salidas de dinero 
abarca, naturalmente, una gran cantidad de Informaciones 
Individuales. Por este motivo se brinda la aplicación de su 
CPC para la administración de estos datos. 

El siguiente programa asume esta misión. El mismo tiene las 
siguientes funciones: 

- Introducir las salidas de dinero ( con las variables "de¬ 
signación de mercancía", "Importe en DM", "categoría" y 
"fecha") 
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- Crear categorías (se pueden crear hasta 10 categorías) 


Salidas de dinero y categorías 

- leer 

- almacenar 

- mirar (en forma de una tabla) 

- calcular ( se editan los Importes en DM por categoría 
para los espacios de tiempo que se deseen. La represen¬ 
tación de las participaciones, en porcentajes, de las 
diferentes categorías tiene lugar en forma de un dlagra 
ma de barras.) 

- Terminal el trabajo 

Así pues, el programa no solamente gestiona las diferentes 
Informaciones, sino que asume también la Importante misión 
de llevar a cabo cálculos. Por lo tanto, a final de mes o 
del año puede usted comprobar fácilmente cuánto dinero ha 
gastado en cada una de las áreas. 

Dado que solamente pueden crearse 10 categorías (más 
limitarían la claridad), tiene sentido la creación de la 
categoría ''otros", para evitar dificultades de ordenación. 
La lectura tiene que realizarla usted antes de la entrada de 
nuevos datos, ya que de lo contrario la informaciones que ya 
han sido entradas quedarían sobreescrItas. 

SI se trabaja con dlskette hay que modificar la rutina de 
lectura, ya que hay que Indicar un nombre concreto de 
fichero. Ello puede ser de la siguiente manera: 

795 INPUT"cómo se llama el fichero''; n $ 

800 OPENIN n$ 
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En total en el programa se ha reservado espacio para 1000 
entradas respectivas. Todavía puede usted, ciertamente, 
aumentar esta cantidad (líneas 80-90 del programa, pero 
tenga en cuenta la capacidad de almancenamlento de su 
ordenador); sin embargo, una ''IIquldactón final'' mensual o 
anual sería, seguramente, más razonable. 

Por lo demás, e! ¡i-jj . se explica sumamente por sí mismo. 
Lo único es que, después de la edición del diagrama de 
barras, no se Indica la petición ''por favor pulse una 
tecla'', ya que el espacio disponible en la pantalla se 
utiliza para el diagrama y debiera evitarse un 
"enrollamiento hacia arriba" de la pantalla. 

Programa: 


10 REM 117 
20 CLS 

30 PRINT ”117 - Programa para el control” 

40 PRINT T8BC7)”de sus gastos” 

50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
60 PRINT TABC9) ”Bernd Kouial, 1985” 

70 G0SUB 2060 

80 Din wbSC1000),dmC1000), k C1000) 

90 DIM tgC1000),moC1000),jaClOOO),JaSClOOO) 

100 REM 
110 REM Menú 
120 REM 

130 PRINT TflBC17)"Menú”:PRINT:PRINT 

140 PRINT TPBC33)"Entrada”:PRINT 

150 PRINT”Entrar los gastos"¡TPBC36)”1":PRINT 

160 PRINT"Formar categorías”;TABC36)”2”:PRINT 

170 PRINT”Carg’ar los gastos” : PRINT 

190 PRINT” y las categorías";TPBC36)”3”:PRINT 

190 PRINT"Grabar”;TPBC36)”4”:PRINT 

200 PRINT”Mirar”;TftBC36)”5”:PRINT 

210 PRINT"Calcular”;TABC36)”6” 

220 PRINT: PRINT”Terminar el trabajo” ; IflBOG) ”7 
230 PRINT:PRINT:INPUT”9u elección ";a:CLS 
240 IF a<1 OR a>7 THEN CLS:GOTO 130 
250 ON a GOTO 270,620,780,920,1080,1240,1930 
260 REM 
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270 REN entrar les gastas 
BBO REN 

290 IF ka>0 THEN 320 

300 PRINT”Primero tiene que formar categorías.” 

310 EOSUE 2050:GOTE 620 

320 WINDGU #2, 20,40, 1,25 

330 PRINT #2,"Categorías”:PRINT #2 

340 FOR i-l TO ka 

350 PRINT #2,1;”. k$Ci3 

360 NEXT i 

370 lüINDOUJ #1,1,19,1,25 
390 ga-ga+1 

390 PRINT #l,”La entrada se" 

400 PRINT #1,"termina si pulsa” 

410 PRINT #1,"usted un 0 para” 

420 PRINT #l,”la denominación” 

430 PRINT #l,"de la mercancíaPRINT #1 
440 PRINT #l,"Haga usted las" 

450 PRINT #1,"siguientes entradasPRINT #1:PRINT #1 
460 PRINT #1, ga ; ".entrada PRINT #1 
470 PRINT #l,”Denom. mercancía” 

4B0 INPUT #1,wb$(ga3:PRINT #1 

490 IF uib$(ga3-”0” THEN ga=ga-l:CLS:GOTO 110 

500 PRINT #1,"Importe en Ptas.” 

510 INPUT #1,dmCgaí:PRINT #1 
520 PRINT #1,"Categoría" 

530 INPUT #1,"No. ”,ktga):PRINT #1 
540 IF k C ga 3 <1 OR kCga3>ka THEN 520 
550 PRINT #1,"Fecha” 

560 INPUT #1,"Dia "¡tgCgal 

570 INPUT #1,"Mes ";moCga3 

5B0 INPUT #1,"Anyo ”;ja$Cga3 

590 jaStga3-RIGHTSCJaSCga3,23:JaCga3-UAL(JaSCga3 3 
600 CLS #1:G0TÜ 380 
610 REN 

620 REn formar categorías 
630 REn 

640 IF ka-0 THEN 690 

650 PRINT"Existen las siguientes categorías :” 

660 PRINT:FOR i-1 TO ka 

670 PRINT i;" .Categoría :”;kSCi3 

680 NEXT i:PRINT:PRINT 

690 PRINT"Como máximo puede formar 10 categorías.” 

700 PRINT”Entre usted un 0 si no quiere” 

710 PRINT"formar mas categorías .”:PRINT 
720 ka-ka+1 

730 IF ka-11 THEN ka-ka-1:GOSUB 2050:GOTO 110 
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740 PRINT ka:”.categoría ”;:INPUT kSCkal 
750 IF kSCkal-"C” THEN ka-ka-1: CLS: GOTO 11C 
750 GOTO 780 
770 REM 

780 REM leer gastes y categoría 

790 INPUT"Entre nombre de Fiohero”; FpS 

800 OPENIN fpS 

810 INPUT #9,ga,ka 

880 FOR i-1 TO ga 

B30 INPUT «9,uubSCi3 

840 INPUT #9,dmCi 1,kCi},tgCi),mc(i),jaCi) 

850 NEXT i 

850 FOR i-1 TO ka 

870 INPUT #9,k$(i) 

880 NEXT i 
890 CLOSEIN 
900 CL5:GOTO 110 
910 REM 

980 REM grabar gastos y categorías 
930 REM 

940 PRINT”Con que nombre se deben” 

950 INPUT”grabar las informaciones ”;n$ 

950 OPENOUT nS 
970 PRINT #9,ga,ka 
980 FOR i-1 TO ga 
990 PRINT #9,wbSCi 5 

1000 PRINT #9,dmii1,kCi 1,tgCi1,moCi 1,jaCi 1 

1010 NEXT i 

1080 FOR i-1 TO ka 

1030 PRINT #9,k$(i 1 

1040 NEXT i 

1050 CLOSEOUT 

1060 CLS:GOTO 110 

1070 REM 

1080 REM mirar los gastos y las categorías 
1090 REM 

1100 MODE 8:af-1:h-80 

1110 PRINT”Entrada no. Denom. mercancía 

1180 PRINT”Importe Ptas. Categoría Fecha” 

1130 PRINT:FOR i-af TO ga 

1140 PRINT U5ING ” ##### ”¡i; 

1150 PRINT USING ” \ VjuibSCi); 

1160 PRINT U5ING ” ######.##”;dmCi1; 

1170 PRINT U5ING ” \ \ \ "¡kSCkCD); 

1180 PRINT U5ING "##.”;tgCi 1;moCi1; 

1190 PRINT USING ”##”;Jatil 

1800 IF í-h THEN h-h+80:af-af+80:GOSUB 8060:GOTO 1110 
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1210 NEXT i 

1220 GCSUE 2050:nODE 1:GOTO 110 
1230 REH 

1240 REfl calculas 
1280 REH 

12E0 PRÍNT”Indique el penado de tiempo para" 

1270 PRI!\¡T"ei que hay que hacer los cálculos.": PRINT 
1280 PRINT"Cesde TAEC10}"Hasta PRINT 
1280 PRINT: PRINT”Dia” ; TABC IB) "Día" : PRINT 
1300 PRINT "ríes” ;TAEC18} "des" : PRINT 
1310 PRINT”Anyo”;TABC181"Anyo” 

1320 LOCATE 7,7:INPLIT at 
1330 LOGATE 7,9:INPUT am 
1340 LOCATE 7,11:INPUT ajaS 
1350 LOCATE 24,7:INPUT et 
1360 LOCATE 24,9:INPUT em 
1370 LOCATE 24,11:INPUT eja$ 

1380 ajaS=RIGHTSC aja$,21:aja-UALCajaSl 
1390 eJa$=RIGHTSCeJa$,2}:eja-UALCeJa$l 
1400 PRINT:PRINT:PRINT TABC81"Estoy calculando !” 

1410 su=0;POR í-l TO ka 
1420 ksCl1-0:NEXT i 
1430 FOR i-l TO ga 

1440 IF jaci!<aja OR jacil>eja THEN 1510 
1450 IF jaCil>aja AND JaCil<eja THEN 1490 
1460 IF moCil<am OR moCll>em THEN 1510 
1470 IF moCil>am AND moCil<em THEN 1490 
1480 IF tgci1<at OR tgCil>et THEN 1510 
1490 ksCkCi11-ksCkCi 11+dmCi1 
1500 su=su + dm(i} 

1510 NEXT i 

1520 CLS:PRINT"En este periodo de tiempo ha gastado Ud” 
1530 PRINT”un total de ”;INTCsu*100+0.5)/100;" Ptas.” 
1540 PRINT:PRINT 

1550 PRINT"Para las diferentes categorías resulta” 

1560 PRINT"el siguiente cuadro PRINT 
1570 PRINT”No.de la Nombre de”;TABC35)"Ptas.” 

1580 PRINT"Categoria Categoría”:PRINT 

1590 FOR i—1 TO ka 

1600 PRINT U9ING ”#####”;i; 

1610 PRINT LISING " \ \”;kSCi); 

1520 z=INT(ksC 1 1*100+0.53/100 
1630 PRINT TABC30} USING "#######.##”;z 
1640 NEXT i 
1650 GOSUB 2050 

1660 PRINT"Representacion gráfica de la parte” 

1E70 PRINT"porcentual redondeada de las distintas” 
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1880 PRINT”categorias respecta al total de gastos 
1690 pm-0 

1700 FOR i-1 T0 ka 

1710 pCi)“ksCi )*100/su 

1720 IF p(i)>pm THEN pm-pCi) 

1730 NEXT i 
1740 FOR i-1 TO ka 
1750 ppCi)-p(i)*100/pm 
1760 NEXT i 

1770 PLOT 17,17: DRAUI 17,320 
1780 PLOT 17,17:DRAW 520,17 
1790 LOCATE 1,5: PRINT”V 
1800 LOCATE 34,25PR INT”Categ . “ 

1810 j-0 

1820 FOR i-3 TO ka*3 STEP 3 
1830 J-J+l 

1840 LOCATE i,25:PRINT J 
1B50 x-ROUNDC18-ppCj3/1003 
1860 FOR 1-24 TO 24-x STEP -1 
1870 LOCATE i+l,l:PRINT CHRSC1433 
1880 NEXT 1 

1890 LOCATE i,23-x:PRINT USING pCj) 

1900 NEXT i 

1910 GOSUB 2100:GOTO 110 
1920 REH 

1930 REfl terminar el Programa 
1940 REH 

1950 PRINT”Ha grabado usted toda la información” 
1960 PRINT"debidamente ?" 

1970 PRINT’’Si no es asi, entre simplemente” 

1980 PRINT"un ’oh' (en caso contrario, basta” 

1990 PRINT"con pulsar la tecla espadadora).” 

2000 INPUT aS 

2010 IF a$-”oh" THEN CLS:G0T0 920 

2020 PRINT:PRINT:PRINT” Hasta la vista” 

2030 PRINT:PRINT"Ahora puede usted desconectarme” 
2040 END 
2050 REH 

2060 REn UF subprograma esperar 
2070 REH ' 

2080 LOCATE 5,25 

2090 PRINT”Puíse una tecla !” 

2100 xS-INKEYS 

2110 IF xS-”" THEN 2100 

2120 CLS:RETURN 
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Lista de variables: 


a = Contestación ''se lección de menú'' 

a$ = Cadena de contestación en la parte de programa ''tei— 
minar el trabajo" 

af = Valor Inicial del bucle 

aja = Indicación del año (principio) 

aja$ = Campo de entrada para aja 

am = Indicación del mes (principio) 

at = Indicación del día (principio) 

dm(!) = Importe en DM 

eja = Indicación del año (final) 

ea$ = Campo de entrada para eja 

em = Indicación del mes (final) 

et = Indicación del día (final) 

ga = Cantidad de salidas de dinero 

h = Variable auxlI lar 

I = Indice de control 

J = Indice 

jad) = Año del gasto de dinero 
j a $ (I) = Campo de entrada para jad) 

kd) = Número de categoría referente a una salida de dine¬ 
ro 
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k$(!) = Designación de la categoría 


ka = Número de categorías definidas 

ks(t) = Suma de las salidas de dinero de cada categoría 
relativa a un período de ttempo 

I = Valor Inicial del bucle para el dibujo de las barras 

mo(I) = Mes de la salida de dinero 

n$ = Nombre de las Informaciones a almancenar 

p(I) = Tanto por ciento de las salidas de dinero por cate¬ 
goría referido al total de gastos 

pm = Valor máximo relativo a la variable p(I) 

pp(l) = Tanto por ciento de las salidas de dinero por ca¬ 
tegoría referido al valor máximo pm 

su = Suma de las salidas de dinero relativa a un período 
tiempo 

tg(I) = Día de la salida de dinero 
wb$(I) = Designación de la mercancía 

x = Variable auxiliar para la determinación del valor fi¬ 
nal del bucle en el bucle del programa para el dibujo 
de las barras 

z = Valor redondeado a dos cifras decimales relativo a la 
variable ks 
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Descripción del programa 


Líneas 10- 70 : Título 

Líneas 80- 90 : Reserva de espacio de memoria 

Líneas 100-250 : Selección del menú y correspondientes 
ramificaciones 

Líneas 260-600 : Entrada de las salidas de dinero 

En esta parte de programa se definen dos 
áreas de pantalla. Mientras en la primera 
ventana (área Izquierda de la pantalla,de¬ 
finí da en la línea 370) tienen lugar las 
entradas, en la segunda ventana ( área de¬ 
recha de la pantalla, definida en la línea 
320 ) se editan las categorías estableci¬ 
das. Por consiguiente el usuario del pro¬ 
grama tiene siempre las diferentes catego¬ 
rías ante sus ojos. Luego, después de rea¬ 
lizada la entrada, en la línea 600 sola¬ 
mente se limpia la primera ventana. SI to¬ 
davía no se ha fijado ninguna categoría 
(vea líneas 290-310), se edita un comenta¬ 
rlo y se ramifica a la parte del programa 
''formar categorías'*. La entrada de un 0 
para la variable ''designación de mercan¬ 
cía' 1 provoca el salto de regreso a la se¬ 
lección del menú (línea 490). El campo de 
entrada para la variable ja es una cadena 
para, de una posible entrada con Indica¬ 
ción del siglo (p.ej. 1985) guardar en la 
línea 590 solamente las dos últimas ci¬ 
fras (o sea, 85) en el campo ja(I). 

Líneas 610-760 : Formación de las categorías 

En el caso de que ya existan categorías, 
éstas son editadas (líneas 640-680). 
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A continuación se pueden formar categorí¬ 
as. Cuando se han formado 10 categorías o 
se entra un 0, tiene lugar un salto de re¬ 
greso a la selección del menú ( vea líneas 
730 y 750 ). 

Líneas 770-900 : Se leen las salidas de dinero y las cate¬ 
gorías 

Líneas 910-1060: Se almacenan las salidas de dinero y las 
categorías 

Al leer y guardar variables de cadena, hay 
que tener en cuenta que ello se realiza en 
Instrucciones respectivas separadas INPUT 
o PRINT ( vea líneas 830-840 ó líneas 990- 
1000 ). 

Líneas 1070-1220:MIrar las salidas de dinero y las catego¬ 
rías. Para ello, en la línea 1100 se pone 
el modo de pantalla a 80 caracteres por 
línea. Con la ayuda de la Instrucción 
PRINT USING tiene lugar luego una edición 
formateada en forma de tabla. Las varia¬ 
bles af y h sirven para la limitación res¬ 
pectiva de la edición a 20 líneas de la 
tabla. Antes del salto de regreso a la se¬ 
lección del menú, se cambia de nuevo al 
modo de 40 caracteres (línea 1220). 

Líneas 1230-1910:Cálculos 

1260-1390 : Entrada de un período de tiem¬ 
po para el cual tengan que 
realizarse los cálculos. Aquí, 
primero se edita el texto de 
entrada y a continuación se 
poslctonan debidamente las 
Instrucciones INPUT. Por los 
mismos motivos que en la línea 
590 se entran como cadenas las 
Indicaciones de los años. 
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1400: Comentarlo 

1410-1420 : Las variables su y ks(I) a calcular son ocupadas 
con el valor Inicial 0. 

1430-1510 : SI, dentro del período de tiempo Indicado, hay 
un gasto de dinero, las variables su y ks son 
aumentadas en el correspondiente Importe en DM. 
La comparación de la Indicación del año, del mes 
o del día correspondiente a un gasto de dinero 
con el período de tiempo Indtcado es, por decli— 
lo así, válido solamente para este siglo, ya que 
en la Indicación del año no entra el siglo cor¬ 
respondiente. A modo de ejemplo, la Indicación 
de año 2005 es tratada exactamente Igual que la 
Indicación 1905. 

1520-1650 : Edición formateada de los Importes en DM redon¬ 
deados en la segunda cifra decimal ( por catego¬ 
ría y en total ). 

1660-1680 : Título de la representación gráfica de las par¬ 
ticipaciones en porcentaje de las diferentes ca¬ 
tegorías en los gastos totales. 

1690 : La variable pm es equiparada a 0. 

1700-1730 : Cálculo de los porcentajes de los gastos por ca¬ 
tegoría referidos a los gastos totales y detei— 
mlnaclón del máximo pm. 

1740-1760 : Se calculan los porcentajes de los gastos por 
categoría referidos al máximo valor del porcen¬ 
taje pm. Esto sirve para aprovechar de forma óp- 
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tima el espacio disponible en la pantalla ( vea 
las líneas 1850-1880). 

1770-1780 : Se dibuja un sistema de coordenadas. Antes de 
dibujar las Ifneas con la Instrucción DRAW, se 
coloca cada vez el cursor de gráficas, por me¬ 
dio de la Instrucción PLOT, en el origen de las 
coordenadas. 

1790-1800 : S» Inscriben los ejes de coordenadas 

1810 : La variable de índice j se equipara a 0. 

1820-1900 : En este bucle de programa se Inscribe el eje x y 
se dibujan las barras. Aquf la variable I sirve 
para el posIclonamlento horizontal del cursor 
mientras la variable J Identifica los valores de 
porcentajes ppCI) de las diferentes categorías. 
Con el mayor valor de porcentaje, la variable x 
también tiene el mayor valor, de manera que en¬ 
tonces las 18 líneas de que disponemos se uti¬ 
lizan para el dibujo de las barras (líneas 1860- 
1880). Con valores pp(I) más pequeños se aumen¬ 
ta correspondientemente el valor final del bucle 
en la línea 1860, de forma que entonces se dibu¬ 
jan barras más cortas. En la línea 1890 se edi¬ 
tan directamente, por medio de la correspondien¬ 
te barra, las correspondientes participaciones. 
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en porcentaje, de la respectiva categoría en 
los gastos totales. Dado que esto son valores 
redondeados, puede pasar que la suma de los va¬ 
lores editados en porcentaje no sea igual a 100. 

1910 : Final de esta parte del programa 

Líneas 1920-2040 : Final del programa 

En esta parte del programa existe todavia 
la posibilidad - en el caso de que se ha¬ 
ya olvidado -de almacenar datos entrados. 

Líneas 2050-2120 : Subprograma ''esperar'' 
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7.3. Un contador electrónico de calorías 


Toda persona, que alguna vez haya hecho una dieta, sabe que 
no es tan fácil calcular su aprovisionamiento diario de 
calorías. Generalmente, las Indicaciones de las tablas de 
calorías se refieren a una determinada cantidad de gramos o 
de litros. 

A modo de ejemplo se encuentra usted aquí ante el siguiente 
problema de regla de tres: 

Una botella de cerveza (0,5 litros) tiene 210 kllocalorías, 
¿ cuántas kllocalorías tiene, pues, un vaso (0,2 litros) ? 

Para resolver esta cuestión de cálculo, sólo tiene usted que 
establecer la sencilla ecuación siguiente: 

210 = x 
0,5 0,2 


x = 0.2*210/0.5 = 84 

SI quisiera usted llevar a cabo este cálculo para cada 
alimento que toma diariamente, tendría que realizar un 
trabajo enorme. Para ello ya se le podría aconsejar la 
utilización de una calculadora de bolsillo. No obstante, con 
su CPC y un programa adecuado se puede reducir aun más esta 
cantidad de tiempo. 
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Entonces sólo tendría el trabajo de Introducir una vez en el 
programa todos los alimentos Importantes para usted. 

La entrada se realiza con la ayuda de la Instrucción DATA. 
Cada Instrucción DATA está constituida aquí de la siguiente 
manera: 

DATA < alimento, unidad de medida, número de unidades de me¬ 
dida a las cuales se refiere la Indicación de calorías. 
Indicación de calorías > 

Por ejemplo: 

DATA < panecillos, pieza (Igual a 40 gramos), 1, 111 > 

En otras palabras: 1 panecillo (Igual a 40 gramos) tiene 111 
calorías. 

En el presente programa solamente se dan 15 Instrucciones 
ejemplares de DATA. Esta cadena de InstruccIonAs puede ser 
ampliada o modificada por usted a voluntad. Entonces, 
eventual mente también tendrá que modificar el valor de la 
variable k en la línea 100, ya que solamente se leen 
Instrucciones DATA k. 

En el desarrollo del programa, para el cálculo de calorías 
solamente hay que entrar el alimento y un número 
correspondiente a la cantidad, así, por ejemplo: 

¿ Alimento ? panecillos 
¿ Cuántas piezas (de a 40 gramos) ? 2.5 

Como resultado tendrá usted: 

Son 277.5 calorías 

Como es natural, los diferentes resultados se van sumando de 
manera que, por ejemplo, para los alimentos a Ingerir 
durante un día podría resultar: 

En total resultan 2428.5 calorías 
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Al Introducir el alimento fíjese en que la forma de 
escritura sea exacta, ya que de lo contrario aparece en la 
pantalla el siguiente mensaje: 

No se dispone de ninguna Información 
sobre el alimento Indicado. 


Programa: 


10 RETI I IB 
20 CLS 

30 PRINT ”118 - Programa para el calculo de" 

40 PRINT TABC7)"calorlas” 

50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
60 PRINT TABC9) "Bernd Kouial , 1985” 

70 G0SUB 1480 

80 REM k equivale al numero de 
90 REI1 alimentos entrados 
100 k-15 

110 Din n$Ck),mSCk),amCk),kaCk) 

120 DATA mantequilla,gramos,100,775 

130 DATA huevo,unidad Celase 4),1,92 

140 DATA plátano,unidad Cpequenya),1,99 

150 DATA panecillo,unidad Cigual a 40 Gramos;,1,111 

160 DATA anguila,gramos,100,299 

170 DATA patatas fritas,gramos,100,538 

180 DATA queso de bola (40‘i grasa i, gramos , 100,331 

190 DATA cerveza,litro,0.2,84 

200 DATA leche C3.5 "í grasa! , litro , 1,660 

210 DATA pasta Ccocida),cuchara C40 gramos),1,39 

220 DATA cerveza fuerte,1itro,0.2,132 

230 DATA pata de ciervo,gramos,100,106 

240 DATA ajo,diente C5 gramos),1,7 

250 DATA mermelada,cucharadita C5 gramos),1,38 

260 DATA col de Bruselas,gramos,100,52 

1000 FOR i-1 TO k 

1010 READ nSCi),mSCi),amCi),kaCi) 

1020 NEXT i 

1030 PRINT TABC16)”nenu”:PRINT:PRINT:PRINT 
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1040 PRINT TABC33 3"Entrada”:PRINT:PRINT 

1050 PRINT”nirar todos los datos";TABC363”1”:PRINT 

1060 PRINT"Calcular las calorías”;TABC363”2”:PRINT 

1070 PRINT"Terminar el trabajo”;TABC363”3”:PRINT 

10B0 PRINT:PRINT:INPUT”Su elección ”¡a 

1090 IF a<1 OR a>3 THEN CLS:GOTO 1030 

1100 CLS:ON a GOTO 1110,1260,1470 

1110 FOR i—1 TO k-1 

11B0 FOR J-i+1 TO k 

1130 IF nSCi3<-nSCJ3 THEN 1180 

1140 h$-n$Cj3:nS(J3-n$Ci3:nSCi3-hS 

1150 hS-mSC J3:mSCJ 3-m$Ci3:mSCi3-h$ 

1160 h-amCJ3:amCJ3-amCi 3:amCi3-h 
1170 h-kaCJ3:kaCJ3-kaCi 3:kaCi3-h 
11B0 NEXT J 
1190 NEXT i 

íeoo í-ao 

1210 FOR i-1 TO k 
íeeo PRINT n$(i3 

1230 IF i-1 THEN 1-1+20:GOSUB 1480 
1240 NEXT i 

1250 G05UB 1480:GOTO 1030 
1260 ksu-0 

1270 PRINT”5i al pedir un alimento .pulsa” 

1280 PRINT”simplemente la tecla espaciadora” 

1290 PRINT”se interrumpirá el” 

1300 PRINT"calculo de caloríasPRINT:PRINT 

1310 INPUT"Alimento ” ; enS:PRINT 

1320 IF enS-'"’ THEN 1390 

1330 FOR i-1 TO k 

1340 IF n$Ci3<>enS THEN 1430 

1350 PRINT"Cantidad " ; m$Ci3¡” INPUT em 

1360 ks-em*kaCi3/amCi3:PRINT:PRINT 

1370 PRINT"Esto son ”¡ks;” KilocaloriasPRINT 

13B0 ksu-ksu+ks 

1390 PRINT:PRINT”En total resultan pues”; 

1400 PRINT ksu;” Kilocalorias.” 

1410 G05UB 1480 

1420 IF en$-"" THEN 1030 EL5E 1270 
1430 NEXT i 

1440 PRINT:PRINT”Para al alimento indicado” 

1450 PRINT"no hay ninguna información." 

1460 GOSUB 1480:GOTO 1270 
1470 END 

1480 REíl UP subprograma esperar 

1490 LOCATE 5,25 

1500 PRINT"Puise una tecla ! " 

1510 xS-INKEYS 

1520 IF xS-"” THEN 1510 

1530 CLS:RETURN 
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Lista de variables 


a = Contestación ' 1 se lección de menú' 1 

am(I) = Número de unidades de medida a las cuales se re¬ 
fiere la Indicación de calorías 

em = Número de unidades de medida entradas 

en$ = Alimento entrado 

I = Indice de control 

J = Indice de control 

k = Número de Instrucciones DATA 

ka(!) = Indicación de calorías 

k = Número de calorías calculado 

ksu = Suma de las calorías calculadas 

I = Variable auxlI lar 

mí(I) = Unidad de medida 

n$(I) = Al Imentó 
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Descripción del programa: 


Líneas 10- 70 : Título 

Líneas 80- 90 : Comentarlo 

Línea 100 : Ocupación de la variable k 

Línea 110 : Reserva de espacio de memoria 

Líneas 120- 260 : Se ponen datos a disposición del 
programa 

Líneas 1000-1020 : Se leen los datos 

Líneas 1030-1100 : Menú de selección con las correspondien¬ 
tes ramificaciones de programa 

Líneas 1110-1250 : Parte del programa ''mirar datos'' 

1110-1190 : Clasificación alfabética de 
los datos ( vea también el 
capítulo 2.4) 

1200-1240 : Se editan 20 alimentos cada 
vez ( vea la variable auxi¬ 
liar I) 

1250 : ''esperar 1 ' y salto de regreso a 
la selección del menú 

Líneas 1260-1460 : Parte del programa ''calcular calorías'' 
1260 : La variable ksu es equiparada a 0 
1270-1300 : Se editan aclaraciones sobre 
el desarrollo del programa 
1310 : Entrada de un alimento 
1320 : En el caso de que se pulse el es¬ 
paciador, tiene lugar una ramifi¬ 
cación a la edición del resulta¬ 
do total. 
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1330-1430 : La variable en$ ocupada por una 
entrada ( línea 1310 ) es compa¬ 
rada con las variables n$(t) al¬ 
macenadas. SI hay Igualdad se 
pide un valor referente a la 
cantidad ( 1350 ), se calcula la 
cantidad de calorías (1360), se 
edita el resultado ( 1370 ) y en 
el campo ksu se forma la suma de 
todos los cálculos (1380). Des¬ 
pués, en las líneas 1390 y 1400, 
se edita el resultado provisio¬ 
nal ( o el resultado total, vea 
la línea 1320 ). Después de un 
salto al subprograma "esperar 1 ' 
( 1410 ), en la línea 1420 tiene 
lugar una ramificación a la se¬ 
lección de menú ( en el caso de 
que los cálculos tengan que ser 
Interrumpidos ) o a la entrada 
repetida (1270).SI hay desigual¬ 
dad, se prosigue la comparación 
( salto a la línea 1430 ). 

1440-1460 : Edición de un comentar lo,''espe¬ 
rar" y ramificación a la entra¬ 
da repetida en el caso de que 
el nombre del alimento entrado 
ení no se encuentre entre las 
variables n$(1) almacenadas. 

Línea 1470 : Final del programa 

Líneas 1480-1530 : Subprograma "esperar" 
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7.4. Filón de Ideas 


- Listas de precios consultables, p.ej., para frutas 
y verduras 

- Organización del trabajo de la casa 

- Ordenación en el congelador 

- Fichero de recetas para cocineros aficionados 

- Establecer, calcular y evaluar un archivo de la salud peí— 
sonal ( valores de azúcar en la sangre, circulación de la 
sangre, pulso, etc. ) 

- Planes de dieta 

- Planes de Jogglng y de forma física 

- Cálculos de riesgos ( p.ej., el cálculo de las expectati¬ 
vas de vida en función de lo que se fume) 

- Y muchas otras cosas 
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SU ORDENADOR Y SUS HOBBYS 


8.1. Advertencia preliminar 


Este capítulo es quizás uno de los más Interesantes de este 
libro, ya que puede usted utilizar el CPC para la práctica 
de muchos hobbys. Da lo mismo que coleccione sellos o que 
sea aficionado a un determinado tipo de deporte; con el 
ordenador y los programas adecuados pueden configurarse 
muchas cosas de forma más sencilla. Esta función abarca 
desde la tarea de hacerse cargo de trabajos organizativos (¿ 
dónde encuentro yo este o aquel sello ?) hasta la prácttca 
real de un hobby (con ello no queremos decir la programación 
en sf, sino, p.ej., para el entusiasta de la música, hacer 
música con el ordenador). 

Aquí, naturalmente, no es posible entrar en más detalles 
sobre todas las posibilidades Imaginables de aplicación de 
su ordenador. En este lugar, más bien dos ejemplos de 
programa ocupan un amplio espacio y están destinados a 
aclararle las posibilidades técnicas de su CPC. Por un lado 
son las excelentes cualidades gráficas y, por el otro, las 
sobresaltantes posibilidades de programación musical. Hasta 
ahora estas dos áreas de aplicación han estado un poco 
descuidadas. Un tercer ejemplo se ocupa del rey fútbol, ya 
que éste sigue siendo la especialidad deportiva más 
preferida y, por consiguiente, el hobby de mucha gente de 
nuestro país. 
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Sin embargo, son pensables otras muchas áreas de aplicación. 
En el -filón de Ideas correspondiente a este capítulo 
encontrará usted algunas otras sugerencias. Así pues, le 
Invitamos nuevamente a que, partiendo de las propuestas 
hechas aquí, desarrolle programas hechos a la medida de sus 
necesidades personales. Quizás su afletón por su hobby le 
ayudará a resolver las dificultades que, según cómo, 
pudieran aparecer en la realización de sus deseos de 
software. 0 quizás se convierta también la programación en 
su nuevo hobby (en el caso de que ya no lo sea). 
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8.2. Pintar, dibujar y crear gráficos 


En el mercado actual de procesamiento electrónico de datos 
se perfila una Inequívoca tendencia hacia los sistemas 
capaces de crear gráficos. Dado que, para la creación de 
Imágenes, el teclado de los ordenadores está frecuentemente 
sobrecargado, en los últimos años se han desarrollado nuevas 
Interfases que están entre el ordenador y el hombre. Estas 
Interfases son casi nuevos dispositivos de entrada. Junto al 
ampliamente conocido joystlck merecen especial mención los 
Instrumentos ''ratón' 1 y la tableta gráfica. Aquí, 
principalmente la tableta gráfica se asemeja al papel - 
instrumento convencional portador de pensamientos -. Sin 
embargo, en lo sucesivo, estos Instrumentos adicionales de 
entrada no serán considerados, ya que la representación del 
procesamiento profesional de gráficos sobrepasaría, con toda 
seguridad, el marco del presente libro. Por el contrario, si 
dispusiera usted del comparativamente sencillo instrumento 
Joystlck, por medio de unas pocas manipulaciones (véase el 
libro manual del usuario), debería realizar una modificación 
del programa para gráficos presentado aquí. Con la ayuda del 
presente programa puede usted crear las Imágenes (gráficos o 
dibujos) que desee y que se pueden guardar y leer de nuevo. 
Ahora depende de usted que ello se convierta en un verdadero 
trabajo artístico o en el plano de una casa. De todos modos, 
se muestran en la pantalla las coordenadas x e y actuales 
(arriba a la derecha, las coordenadas y ; abajo a la 
derecha, las coordenadas x) para hacer posible la 
representación de dibujos técnicos exactos. 
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Para el control del ••lápiz" en la pantalla, en el 
desarrollo del programa se dotan algunas teclas con 
funciones especiales. Mientras se trate aquf de 
Instrucciones INPUT, se realiza la entrada sin color, es 
decir, el "lápiz" y el "papel" tienen el mismo color 
para no perjudicar la Imagen del gráfico. Sin embargo, 
generalmente, por medio de la Instrucción INKEYÍ se recupera 
el valor de la tecla pulsada. Entonces, como ya es sabido, 
la tecla ENTER no debe ser pulsada. 

Así pues, aquf, al contrario de lo que ocurre en programas 
precedentes, no se escribe ninguna aclaración sobre la 
utilización del programa. 0 bien retiene usted en la cabeza 
el significado de las teclas de control, o utiliza la 
siguiente relación: 


Tecla de control Significado 

| Línea hacia arriba 

~Línea hacia la derecha 
I Línea hacia abajo 

Línea hacia la Izquierda 

a línea sin color o 

"borrar" principio 

b línea sin color o 

"borrar" final 

k círculo 

cualquier número (ENTER may.) radio en plxels 
cualquier número (ENTER may.) ángulo en grados 
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Tecla de control 


Significado 

d 

para la elevación: 


Línea diagonal o línea de 

1 ado a 1 ado 

cualq. núm.(ENTER 

may.) 

Coordenada x (horizontal) 

cualq. núm.(ENTER 

may.) 

Coordenada y (vertical) 

tecla C0PY 


Trazar línea 

ENTER minúsculas 


Fin de esta función 

9 


Círculo lleno 

cualq. núm. (ENTER 

may.) 

Radio en plxels 

cualq. núm. (ENTER 

may.) 

Angulo en grados 

c 


Modificación del color 

b (enter may.) 


El lápiz de color se hace 
azu 1 

r (enter may.) 


El lápiz de color se hace 
rojo 

s (enter may.) 


El lápiz de color se hace 
negro 

s 


Final del programa 


Después de que haya pulsado usted la tecla "s", entre PEN 
1 para hacer que el cursor sea visible de nuevo. 

Las aclaraciones editadas están orientadas a la utilización 
de un dispositivo de cassette. Por lo tanto, para el trabajo 
con dtskette hay que modificar adecuadamente las líneas 150, 
190, 260, 310 y 320. Luego, hay que escoger además un nombre 
de fichero más corto en las líneas 200 y 300. 
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Ya que el manejo de este programa podría ocasionar 
dificultades, a continuación de la descripción del programa 
se ha puesto un pequeño ejemplo, en el cual se han tenido en 
cuenta todas las teclas de control por lo menos una vez. 
Además la misma descripción del programa es algo más 
detallada porque quizás algún que otro lector podría tener 
problemas con las Instrucciones de gráficos. 


Programa: 


10 REP1 119 
20 CLS 

30 PRINT”I19 - Programa para la creación de" 

40 PRINT TAB(7)”un dibujo o gráfico que pueda” 
50 PRINT TAB(7)”ser almacenado y leido” 

B0 PRINT TABC7}"externamente” 

70 PRINT:PRINT:PRINT 

80 PRINT TABC111"Bernd Kowal, 1985” 

90 GOSUB 1100 
100 BORDER 26 
110 INK 0,26 
120 INK 1,0 
130 INK 2,6 
140 INK 3,11 

150 PRINT”Hay que leer un” 

160 INPUT"dibujo del cassette Cs/nl "¡njS 
170 IF nJS-”n” THEN PRINT:PRINT:GOTO 220 
180 IF nj$<>”s” THEN 150 

190 PRINT:PRINT:PRINT ”press PLAY then any key : 
200 OPENIN ”!dibujo” 
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210 INPUT #9,X,y:GOTO 340 

220 PRINT”Indique las coordenadas de" 

230 PRINT”partida para el cursor de gráficos :”:PRINT 

240 INPUT”Coordenada x ”¡x 

250 INPUT"Coordenada y ”¡y:PRINT:PRINT 

260 PRINT”Hay que almacenar el dibujo” 

270 INPUT”en el cassette Cs/n5 ”;jnS 

200 IF JnS-"n” THEN 340 

290 IF JnS<>”s” THEN 260 

300 0PEN0UT ”!dibujo”:PRINT:PRINT 

310 PRINT “Para grabar con el cassette” 

320 PRINT "press REC and PLAY then any key :” 

330 PRINT #9,x,y 
340 G0SUB 1100 
350 KEY DEF 0,1,79 
360 KEY DEF 1,1,02 
370 KEY DEF 2,1,05 
300 KEY DEF 0,1,76 
390 KEY DEF 9,1,60 
400 KEY DEF 6,1,03 
410 PLOT x,y 
420 f-1 

430 IF EOF—1 AND nJS-"s” THEN CL0SEIN:PEN 0:END 

440 IF njS“”s” THEN INPUT #9,a$:G0T0 460 

450 a$=INKEYS:IF aS="" THEN 450 

460 IF aS-”0” THEN y=y + l:DRAUJ x,y,F 

470 IF a$-”R” THEN x-x + 1: DRAU) x,y,f 

400 IF a$-"U” THEN y=y-l:DRAW x,y,F 

490 IF a$-”L” THEN x-x-1: DRAU) x,y,f 

500 IF aS-”a” THEN f-0 

510 IF aS-”e" THEN f-1 

520 IF aS=”k" THEN 610 

530 IF aS-”d" THEN 730 

540 IF aS-"g" THEN 000 

550 IF aS-"c" THEN 1010 

560 IF aS-"s" THEN PEN 0:CLOSEOUT:END 

570 LOCATE 35,25:PEN 1:PRINT x 

500 LOCATE 35,1:PEN 1:PRINT y 

590 IF jnS-"s” THEN PRINT #9,aS 

600 GOTD 430 

610 REn circunferencia 

620 IF nj$-”n" THEN 640 

630 INPUT #9, r, ui: GOTO 670 

640 PEN 0:LOCATE 1,1:INPUT r 

650 LOCATE 1,1:INPUT uuPEN f 

660 IF JnS- ”s ” THEN PRINT #9,aS:PRINT #9 , r , ui 
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670 DEG 

680 FOR i-1 TO w 

690 PLOT x+r*COSCi),y+r*SINCi),F 

700 NEXT i 

710 PLOT x,u,f 

720 GOTO 430 

730 REN Diagonal 

740 IF nj$-”n” THEN 760 

750 INPUT #9,xl,yl:GOTO 790 

760 PEN O:LOCATE 1,1:INPUT Xl 

770 LOCATE 1,1:INPUT yl:PEN f 

780 IF jn$-”s” THEN PRINT #9,aS:PRINT #9,xl,yl 

790 IF EOF—1 AND nj$-"s" THEN CLOSEIN:PEN O:END 

800 IF njS="3" THEN INPUT #9,b*¡0OTO BPO 

810 bS-INKEY$:IF b$-”” THEN 810 

820 IF b$-”D” THEN x-x+xl: y-y+y 1: DRAUl x,y,F 

830 LOCATE 35,25:PEN 1:PRINT x 

B40 LOCATE 35,1:PEN 1:PRINT y 

BSD IF Jn$-”s” THEN PRINT #9,bS 

860 IF b$-”S” THEN 430 

870 GOTO 790 

880 REn circulo relleno 

890 IF njS-”n” THEN 910 

900 INPUT #9, r , ui: GOTO 940 

910 PEN O:LOCATE 1,1:INPUT r 

920 LOCATE 1,1:INPUT ui:PEN F 

930 IF jnS-”s" THEN PRINT #9,aS:PRINT #9,r,ui 

940 DEG 

950 FOR i-1 TO ui 
960 PLOT x,y,F 

970 DRAW x+r*COSCil,y+r*SINCi),F 

980 NEXT i 

990 PLOT x,y,F 

1000 GOTO 430 

1010 REd cambio de color 

1020 IF njS-”n” THEN 1040 

1030 INPUT #9,Fa$:GOTO 1050 

1040 PEN O:LOCATE 1,1:INPUT FaS:PEN 1 

1050 IF FaS-”b” THEN F-3 

1060 IF Fa$-”r” THEN F-2 

1070 IF FaS- ,, s” THEN F-l 

1080 IF jnS-”s” THEN PRINT #9,a$:PRINT #9,FaS 
1090 GOTO 430 

1100 REn UP subprograma esperar 

1110 LOCATE 7,25 

1120 PRINT”Pulse una tecla” 

1130 xS-INKEYS:IF xS-”” THEN 1130 
1140 CLS:RETURN 
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Lista de variables: 


a$ = Cadena para el control de los movimientos de los 
caracteres 

b$ = Cadena para el dibujo de diagonales o de líneas 

f = Color 

fa$ = Cadena para la modificación del color 
1 = Indice de control 

jn$ = Cadena de contestación a la pregunta de si un 
dibujo tiene que ser almacenado 

nj$ = Cadena de contestación a la pregunta de si se 
ha de leer un dibujo 

r = Radio del círculo 

w = Magnitud del ángulo 

x,y = Coordenadas del ''tablero de dibujo' 1 

xl,yl = Coordenadas para dibujar una diagonal o una 
I ínea 
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Descripción del programa: 


LTneas 10- 90 : Título 

Línea 100: Representación de la superficie del mai— 
gen de la pantalla en blanco luminoso 

Líneas 110-140 : Los números PEN o PAPER del 0 al 3 
son ocupados con los colores blanco 
luminoso (línea 110), negro (línea 
120), rojo claro (línea 130) y azul 
celeste (línea 140) 

Líneas 150-160 : Pregunta si se ha de leer un dibujo 

Línea 170 : Edición de dos líneas en blanco y salto a 
la línea 220 si se ha contestado con 
la entrada "n" 

Línea 180 : SI no se ha contestado con "s", se reali¬ 
za una ramificación a la línea 150 

Línea 190 : A esta línea se llega si se ha contestado 
con "s". Se editan dos líneas en 
blanco y tiene lugar una Instrucción 
para la utilización del grabador de 
datos ( como en los programas prece¬ 
dentes, aquí también s posible 
principalmente la utilización de una 
unidad de disco). 

Línea 200 : Se abre el fichero de entrada "dibujo" 

Línea 210 : Las coordenadas de origen x e y para el 
cursor de gráficos se leen de la ctn- 
t y se hace una ramificación a la 
línea 340 
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Líneas 220-250 : Se piden los valores para las coorde¬ 
nadas x e y 

Líneas 260-290 : Se pregunta si el dibujo que todavía 
está por crear se tendrá que almace¬ 
nar. Si se entra "n" se hace una ra¬ 
mificación a la línea 340 y si la en¬ 
trada ha sido "s", se prosigue el 
programa a partir de la línea 300. 

Líneas 300-330 : Se abre el fichero de salida "dibu¬ 
jo", se edita un mensaje adecuado y 
los valores de las variables x e y se 
almacenan en cassette. 

Línea 340 : Ramificación al subprograma ''esperar' 1 

Líneas 350-400 : Para un manejo más sencillo del pro¬ 
grama, las siguientes teclas reciben 
otras asignaciones: la tecla ( línea 
350 ) el valor 0 ( arriba ), la tecla 
(línea 360) el valor R (a la derecha) 
la tecla (línea 370) el valor U (aba¬ 
jo), la tecla (línea 380) el valor L 
(a la Izquierda), la tecla COPY (lí¬ 
nea 390 ) el valor D ( de draw ) y la 
tecla pequenfia ENTER ( línea 400 ) el 


Línea 410 : Se dibuja el punto de partida del cursor 
de gráficos 

Línea 420 : A la variable f se le asigna el valor 1, 
es decir, el color del lápiz ( más e- 
xactamente el cursor de gráficos ) es 
negro hasta que se disponga lo con¬ 
trario 

Línea 430 : SI nj$ es igual a "s" ( es decir, se lee 
un dibujo) y E0F=-1 (EOF es solamente 
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Igual a -1 cuando se ha llegado al fi¬ 
nal del fichero de entrada ) se cierra 
el fichero de enrada y ya se ha lle¬ 
gado al final del programa. La Ins¬ 
trucción PEN 0 hace que la expresión 
READY que normalmente aparece en la 
pantalla después del final del pro¬ 
grama lo haga, por así decirlo,sin co¬ 
lor ( para PEN se utiliza el mismo co¬ 
lor que para PAPER ) con el fin de no 
perudlcar la Imagen del dibujo acaba¬ 
do. 

Línea 440 : SI njí es Igual a "s", pero EOFo-1, se lee 
un nuevo valor para la variable a$ y 
se hace una ramificación a la línea 
460. 

Línea 450 : SI no se lee ningún dibujo, por medio de la 
pulsación de teclas se entran los va¬ 
lores para la variable de control a$. 

Líneas 460-490 : En función del carécter para a$ se di¬ 
buja, en el color actual (variable f), 
una línea desde la pos telón momentánea 
del cursor a la postelón x,y Indicada. 

Líneas 500-510 : SI a$ es Igual a ( a de Anfang = prin¬ 
cipio) el cursor de gráficos recibe el 
mismo color que el fondo, es decir, se 
pueden "borrar" líneas ya existentes. 
Esto ocurre hasta que a$ sea Igual a e 
( de Ende = final). 

Líne 520 : SI aS es Igual a k, tiene lugar un salto al 
subprograma "circunferencia" ( línea 
610). Allí se dibuja luego un círculo 
vacío. 

Líneas 530-550 : Se realizan ramificaciones adecuadas 
de programa cuando a$ es Igual a g 
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(''círculo lleno''), cuando es Igual a d 
("diagonal") o cuando es Igual a c (''mo¬ 
dificación de color"). 

Línea 560 : Se ha llegado al final del programa ( para el 
caso de que no se lea ningún dato) cuando 
se entra una s para a$. El mensaje se e- 
dlta sin color ( compare línea 430 ). La 
Instrucción CLOSEOUT cierra el fichero de 
salida. En el caso de que el dibujo no 
debiera almacenarse, esta Instrucción no 
estorba el desarrollo del programa. 

Líneas 570-580 : Durante el proceso de dibujo se muestra 
el valor actual x del cursor de gráficos 
en el ángulo Inferior derecho y el valor 
actual y en el ángulo superior Izquierdo. 

Línea 590 : SI el dibujo ha de ser almacenado, el carácter 
para a$ se escribe en la cinta 

Línea 600 : Para una repetida ejecución de la parte del 
programa entre las líneas 430 y 590 se e- 
fectúa una adecuada ramificación 

Líneas 610-720 : Se dibuja un círculo 

610 : Comentarlo 

620-630 : SI nj$ es Igual a s, se leen de 
la cinta los valores para r (ra¬ 
dio) y se hace una ramificación 
a la línea 670 

640-650 : Entrada sin color (pen 0) de los 
valores para r y w en el ángulo 
superior Izquierdo de la panta¬ 
lla. 

660 : SI se desea se aseguran los valores 
para r y w. El carácter para a$ 
se asegura asimismo en este lu¬ 
gar ya que en la línea 720 se 
realiza un salto a la línea 430 
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(debido a la ramificación que se 
hace en la línea 520, no se ha 
llegado a la línea 590 en el de¬ 
sarrollo del programa). 

670 : Cambio a modo grados 

680-700 : Se dibuja un círculo en función 
de r y w, más exactamente: se 
dibujan por plotter las coorde¬ 
nadas x e y de cada uno de los 
puntos del círculo 

710 : El cursor de gráficos es colocado de 
nuevo en el centro del círculo. 

720 : Salto a la línea 430 para la entrada 
de otro carácter de control 

Líneas 730-870 : Se dibuja una diagonal o una línea cual¬ 
quiera 

730-780 : Comentarlo, pregunta y entradas 
como en las líneas 610-660 

790 : Pregunta EOF (compare línea 430) 

800-810 : Se leen o se entran los caracte¬ 
res para b$ ( pulsando la tecla 
C0PY ) 

820 : En función de los valores para xl e 
yl se dibuja una línea mientras 
b$ sea igual a D 

830-840 : Se Indican las coordenadas del 
cursor de gráficos 

850 : SI es necesario se aseguran los ca¬ 
racteres para b$ 

860-870 : SI se ha pulsado la tecla ENTER 
minúscula ( o si se ha leído una 
••S*' para b$), tiene lugar un 
salto a la línea 430, de lo con¬ 
trario, a la pregunta EOF en la 
línea 790 
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Líneas 880-1000 : 


Partiendo cada vez del centro del cfi— 
culo (línea 960) se dibuja aquí una lí¬ 
nea a cada punto de la circunferencia 
(línea 970) para representar un círculo 
lleno. Por lo demás, este programa es 
Idéntico a las líneas 610-720. 

Líneas 1010-1090: Parte del programa '' modificación del 
color ''. 

1010-1040 : Entrada o lectura del carác¬ 
ter para fa$ 

1050-1070 : SI se entra (o se lee) "b" 
el lápiz de dibujo se vuelve 
azul, en el caso de ''r" se 
vuelve rojo y si es '’s", 
negro 

1080-1090 : Escribir ( en el caso de que 
jn$ sea Igual a s) el carác¬ 
ter para fa$ en la cinta y 
salto a la línea 430 

Líneas 1100-1140: Subprograma "esperar' 1 
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Ejemplo de utilización del programa: 


Una vez Iniciado el programa, se ocupan las coordenadas de 
origen con los valores 120 (para x) y 200 (para y). A 
continuación se puede crear un dibujo: 

Entrada del teclado Explicación 

—►(hasta x=170) Línea hacia la derecha 


a 


Lápiz sin color''prInclplo'' 


150 (ENTER) 

200 (ENTER) 

1 vez C0PY 
ENTER minúscula 


Diagonal 

150 unidades hacia la derecha 
200 unidades hacia arriba 
Dibujar 

Dlagona I •* f I na I 1 • 


e 


Lápiz sin color •'final" 


| (hasta y=350) 


Línea hacia abajo 


a 


Lápiz sin color"prlnclplo" 


200 (ENTER) 

-150 (ENTER) 

1 vez COPY 
ENTER minúscula 


Diagonal 

200 unidades hacia la derecha 
150 unidades hacia abajo 
Dibujar 

Diagonal "final" 


e 


Lápiz sin color "final" 


(hasta x=470) 


Línea hacia la Izquterda 


a 


Lápiz sin color "principio" 
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En+racia del teclado 


Expllcac!6n 


d 

-150 (ENTER) 

-200 (ENTER) 

1 vez COPY 
ENTER minúscula 


DlagonaI 

150 unidades a la Izquierda 
200 unidades hacia abajo 
Dibujar 

Diagonal "final" 


e 

f (hasta y=50) 
a 

t (hasta y=200) 


e 


Lápiz sin color "final" 

Línea hacia arriba 

Lápiz sin color "principio" 

Línea hacia arriba 

Lápiz sin color "final" 


c 

r (ENTER) 


Modificación del color 
rojo 


150 (ENTER) 
360 (ENTER) 


Círcu lo 

Radio = 150 unidades 
Angulo = 360 grados 


c 

b (ENTER) 


Modificación del color 
Azu I 


80 (ENTER) 
360 (ENTER) 


Círculo I leño 
Radio = 80 unidades 
Angulo = 360 grados 


s 


Final del programa 


El dibujo resultante no es seguramente ninguna obra de arte. 
Además, no se puede apreciar de forma completamente clara lo 
que en realidad debe representarse. Así pues, deje vía libre 
a sus Interpretaciones. 
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8.3. Nosotros hacemos música 


Unos dirán ''por fin'' y otros "Dios mío" pues, en este 
capítulo, se trata de de música programada o, digamos mejor, 
de sonidos programados. 

Entre los usuarios de ordenadores, la programación de música 
es una materia discutida. ¿ No se debería dejar la creación 
de música para el hombre que pueda expresar en ella sus 
sentimientos y su vitalidad ?. Esta pregunta se quedará 
aquí, a propósito, sin contestar. Recordemos solamente que 
hoy en día muchos grupos pop trabajan, en gran medida, con 
ordenadores. 

En cualquier caso, la programación de música es un capítulo 
en sí. Y, naturalmente, primero ha de tener usted 
conocimientos de música para poder programar música, ya que 
de lo contrario se queda todo en sonidos aislados o, 
incluso, en ruidos. 

Para usted, como propietario de un CPC, esto no se puede 
quedar, en efecto, en ruidos, ya que las propiedades del CPC 
para la música y los sonidos son excelentes. Así podrá usted 
- con un poco de práctica - imitar diferentes Instrumentos y 
reproducir a través de sus altavoces de alta fidelidad la 
melodía programada. 

Sin embargo, el manejo de las diferentes Instrucciones de 
música no es tan sencillo. Por ello, el programa de este 
capítulo es más un programa de entrenamiento para que se 
familiarice usted más con las instrucciones de música. No 
obstante puede utilizar también el programa para, con poco 
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trabajo (en comparación con la verdadera creación de un 
programa de música), generar una melodía. En el caso de que 
no tenga usted todavía ninguna experiencia en el campo de la 
programación de música, tendrá que bajar un poco sus 
exigencias y contentarse con diferentes sonidos y ruidos. La 
programación de una melodía la dejamos para más adelante. 
Sobre el programa hay que decir aún que el mismo se basa en 
tres Instrucciones fundamentales de música : SOUND (para la 
generación de un sonido), ENV (para la definición de una 
curva envolvente del volumen de sonido) y ENT (para la 
definición de una curva envolvente del sontdo). 

SI quiere usted utilizar las demás funciones y comandos de 
música, tendrá que ampliar el presente programa o 
desarrollar un programa de música Independiente. 

Por lo demás, el programa es sumamente claro y ofrece al 
usuario las siguientes funciones: 

Instrucciones de música 

- Entrar (sólo los diferentes parámetros) 

- Leer 

- Almacenar 

- Rectificar ( con la posibilidad del aspecto de las Ins¬ 
trucciones de que se dispone y el borrado de las mis¬ 
mas) 

- Ejecutar 

Las entradas correspondientes a las cinco secciones de las 
Instrucciones de las curvas envolventes han de separarse 
entre sí por medio de comas, así, por ejemplo: 

Número de pasos, magnitud, longitud de pausa 

Sección 1 5,5,2 (ENTER) 
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Debe mencionarse aún que puede usted simplificar este 
programa. En efecto, siempre que se repitan partes de 
programa puede recurrir a la técnica de los subprogramas y, 
por otra parte, también puede representar las variables 
p 1 (I) ... p5(l) etc. por medio de variables doblemente 
Indexadas según el modelo p(j,I) para j = 1 ... 5. Aquí 
hemos renunciado a ello por motivos de claridad. 

Asimismo hemos prescindido de no admitir valores 
Incorrectos. En su libro manual de servicio, no obstante, se 
citan en detalle las posibilidades de entrada. 

Para concluir, un consejo todavía: para la primera ejecución 
ponga usted el regulador del volumen un poco bajo .... 


10 REN 120 
20 CLS 

30 PRINT TABC71"I20 - Programa de nüsica" 

10 PRI NT:PRI NT:PRINT:PRINT:PRINT:PRINT 
50 PRINT TAB'.'91 "Bernd Koual, 1385" 

60 EOSL'E 3230 

70 Din ksC500.1, tpCSOOl , di!500) , 1C5001 , lhC5001 

BO Din thC5001, gp'15001, ni 1151, pl C151, ql (151, r 1 (151 

90 Din p2C151,q2(151,r2C151,p3C151,q3C151,r3C151 

100 Din pta51,q‘iC151,r‘iC151,p5C151 1 q5(151,r5C153 

110 Din n2C15!,tlC15!,vlC151, uil C151, t2C 151, v2C 151 

120 Din w2a51,t3C151,v3<:i5!,uj3C15! ) t4C151 

130 Din v4C151 ,w4C151 , t5t151, v5C 153 ,uj5C151 

140 REH 

150 REI1 nenu 

160 REM 

170 PRINT TABC171"Nenu”:PRINT: PRINT 
180 PRINT TABC331"Entrada”:PRINT 
190 PRINT"Instrucciones musicales”:PRINT 
200 PRINT”Entrar”¡TAB(363”1”¡PRINT 
210 PRINT”Leer”¡TABC3B1”2”:PRINT 
220 PRINT"Corregir”¡TABC361”3”¡PRINT 
230 PRINT"Ejecutar"¡TABC361”4”:PRINT 
240 PRINT"Grabar”¡TABC361”5”:PRINT 
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250 PRINI"Terminar el trabajo”¡TABC36!”5”:PRINT:PRINT:PRINT 

B60 INPUT”Su elección ” ; a:CL5 

270 IF a<1 OR a>G THEN CLS:GGT0 170 

2B0 ON a GOTO 300,990,1300,2610,2820,3100 

290 REM 

300 REH entrar instrucciones musicales 
310 REH 

320 PRINT TñB(17!”Henu”:FRINT:PRINT 
330 PRINT TPBC331"Entrada”:PRINT 
340 PRINT"Entrada de”:PRINT 

350 PRINT” Instrucciones -S0UN0”;TfiBC3E!”1”:PRINT 
360 PRINT” Instrucciones -ENU”;TñBC365”2":PRINT 
370 PRINT” Instrucciones -ENT";TABC 36 5”3":PRINT 
380 PRINT "Terminar la entrada” ; TñBC365"4” : PRINT: PRINT 
390 PRINT:INPUT”Su elección ”¡a:CLS 
400 ON a GOTO 420,570,770,970 
410 IF a<1 OR a>4 THEN 320 
420 so-so+l 

430 PRINT”Si entra un O para el estado de” 

440 PRINT”canal, la entrada habra terminado.” 

450 PRINT:PRINT 

460 PRINT”La”jso¡".instrucción 50UN0 :”:PRINT 
470 INPUT”Estado de canal "¡ksCso! 

4B0 IF ksCsol-0 THEN so-so-1:CL5:GOTO 320 


490 INPUT”Frecuencia del sonido 
500 INPUT“Duración 
510 INPUT”Uolumen 

520 INPUT”Curva envolvente d.volumen 
530 INPUT”Curva envolvente d. sonido 
540 INPUT"Frecuencia del ruido blanco 
550 IF ver-1 THEN 1720 
560 CLS:GOTO 420 


tp(so5 
dC so) 

1 Cso5 
lh(so5 
thCso! 
gpCso! 


570 ev-ev+1 


580 PRINT”Entre un 0 para el numero de la” 

590 PRINT”curva envolvente y se habra” 

600 PRINT"terminado la entrada.”:PRINT:PRINT 

610 PRINT”La”¡ev;”.instrucción ENU :”:PRINT 

620 INPUT”No. de la curva envolvente ”;niíev):PRINT 

630 IF nlCevl-0 THEN ev-ev-1:CL5:GOTO 320 

640 PRINT”Entre Cseparados por comas! para los” 

650 PRINT”5 periodos, el numero de pasos, la” 

660 PRINT”magnitud de los pasos y .la longitud de pausa. 
670 PRINT” no. pasos,- magnitud,long. pausa" 

680 PRINT”pe-” 

690 PRINT”riodo” 

700 PRINT T8BC41 1;” ”;:INPUT plCev),qlCevl,rlCevl 

710 PRINT TftBC41 2;” ”¡:INPUT p2Cevl,q2Cev!,rBCevl 
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720 FRINT TABC4) 3;” ”¡:INPUT p3Cbv), q3CBv),r3Cav) 

730 PRINT TABC4) 4¡” ”;:INPUT p4Cev),q4Cev),r4Cev) 

740 PRINT TABC4) 5¡” ”;:INPUT pSCev),q5Cev),r5Cev) 

750 IF ver-1 THEN 2140 
760 CLS:GOTO 570 
770 et-et+1 

780 PRINT”Si entra usted un O para numero de” 

790 PRINT”la curva envolvente, se termina” 

800 PRINT"la entradaPRINT:PRINT 

810 PRINT”La”;etinstrucción ENT PRINT 

820 INPUT”Curva envolvente ”¡n2Cet):PRINT 

830 IF n2(et)-0 THEN et-et-1:CLS:BOTO 320 

840 PRINT”Entre (separados por coma) para” 

B50 PRINT"los 5 periodos, el numero de pasos” 

8B0 PRINT”, la magnitud de pasos y la duración de pausa. 
870 PRINT” no. pasos,- magnitud,long. pausa” 

880 PRINT”pe-” 

890 PRINT”riodo” 

900 PRINT TABC4) 1¡” ”;:INPUT tiCet),viCet),ultet) 

910 PRINT TAB(4) 2;” ”¡:INPUT t2(et),v2Cet),w2Cet) 

920 PRINT TABC4) 3;" ”;:INPUT t3Cet),v3Cet),w3Cet) 

930 PRINT TABC4) 4;” ”¡:INPUT t4Cet),v4Cet),w4Cet) 

940 PRINT TABC4) 5;” ”;:INPUT t5Cet),v5Cet),w5Cet) 

950 IF ver-1 THEN 2560 
960 CLS:GOTO 770 
970 CLS:GOTO 170 
980 REn 

990 REn leer instrucciones musicales 
1000 REn 

1005 INPUT”Entre nombre de fichero"¡fpS 

1010 kl-so+1:k2=ev+l:k3=et+l 

1020 OPENIN FpS 

1030 INPUT #9,k4,k5,k6 

1040 k4=k4+so:k5=k5+ev:k6=k6+et 

1050 FOR 1-kl TO k4 

1060 INPUT #9, ksCi),tpCi),dCi),1Ci),lhCi),thCi),gpCi) 

1070 so-so+1 

1080 NEXT i 

1090 FDR i-k2 TD k5 

1100 INPUT #9,niCi) 

1110 INPUT #9,plCi),qlCi),rlCi) 

1120 INPUT #9,p2Ci),q2Ci),r2Ci) 

1130 INPUT #9,p3Ci),q3Ci),r3Ci) 

1140 INPUT #9,p4Ci),q4Ci),r4Ci) 

1150 INPUT #9,p5(i),q5(i),r5(i) 

1160 ev-ev+1 

1170 NEXT i 

1180 FOR i-k3 TO k6 
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INPUT «3,n5Ci5 

INPUT #3 , tlC i j , vi', i ') ,uil ti ') 

INPUT #9, t2(ii,v2(i),w2Ci) 

INPUT #9, t3t i ') , v3Ci ') , uj3C i ) 

INPUT #9,t4Ci},v4Ci),w4Ci) 

INPUT #9,t5ii1,v5ii J ,w5ii) 

et-et+1 

NEXT i 

CLOSEIN 

CLS:GOTO 170 

REtl 

REri corregir instrucciones musicales 


PRI NT TAEC171’ ”!1enu " : PRI NT: PRINT 
PRINT TfiE':33;i "Entrada" : PRINT 
PRINT"Correcciones de":PRINT 

PRINT” Instrucciones -SOUND";TABC365"1”:PRINT 
PRINT" Instrucciones -ENU”;TABC36)”2”:PRINT 
PRINT” Instrucciones -ENT";TftEC3E)”3":PRINT 
PRINT"Terminar las correcciones”;TABC36)”4” 

PRINT:PRINT:PRINT 
INPuT"Su elección ";a:CLS 
ON a SOTO 1430,1750,2170,2590 
IF a<i QR a>4 THEN 1320 
FOR i“l TÜ so 

PRINT”La"¡iinstrucción SOUND dice :":PRINT 
PRINT"Estado de canal "jksCil 

PRINT"Frecuencia de sonido ”¡tpCi) 

PRINT"Duracion "¡dCi) 

PRINT”Uolumen "¡ICil 

PRINT”Curva envolvente d.volumen ”¡lhC15 
PRINT"Curva envolvente d. sonido "¡thCil 
PRINT”Frecuencia del ruido blanco”¡gp(i1 
PRINT:PRINT:PRINT”Esta instrucción ha de ser ” 

PRINT: PRINT TñBC 331 "Entrada" : PRINT 
PRINT "Cor regí da" ; TABC36 ') ”1 ” 

PRINT"o" 

PRINT"Sorrada";TABC36)"2” 

PRINT"o” 

PRINT"Ha de quedar tal cual ?";TABC361”3":PRINT:PRINT 

INPUT”Su elección ”;a 

IF a<i OR a>3 THEN 1520 

ON a GOTO 1690,1520,1730 

PRINT:PRINT:PRINT”Se esta borrando!” 

FOR J-i TO so-1 


1640 ksC J l-ksC J + 1.1 : tpí J 1-tpC J + lí : dC J 1-dC J+ll 
1650 1ÍJj-lCJ+lí:lhCJl-lhCj+1) 
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1670 NEXT J 
1680 so-so-1:CLS:GOTO 1380 
1630 CLS:PRINT”Entre las nuevos” 

1700 PRINT”valares :”:PRINT 

1710 ver-1:h~sa:sa“i:GOTO 470 

1780 ver=0:sa“h 

1730 CLS:NEXT i 

1740 CLS:GOTO 1380 

1750 FOR i-1 TO ev 

1760 PRINT"La”¡i¡".instrucción ENU dice :”:PRINT 
1770 PRINT”No.de la curva envolvente : ” ; ni 1 1 3: PRINT 
1780 PRINT” no. pasos,- magnitud,long. pausa" 

1730 PRINT”pe-” 

1800 PRINT"riodo" 

1810 PRINT TAB(431;TABC113pl(i3¡TABC213qlti3; 

1880 PRINT TABC313rlCi 3 

1830 PRINT TABC4 32; TABC 11 3p2i i 3 ; TABC21 3q2C i 3 ; 

1840 PRINT TflBC313r2(i 3 

1850 PRINT TABC43 3;TABC113 p3Ci 3;TABC213q3Ci3; 

1860 PRINT TABC 313r3(i 3 

1870 PRINT TABC43 4;TABC113 p4Ci 3;TABC213q4Ci 3¡ 

1880 PRINT TABC 313 r4 Ci 3 

1830 PRINT TABC43 5;TABC113 pSCi 3;TABC213q5Ci 3; 

1300 PRINT TABC313r5Ci 3 

1310 PRINT:PRINT:PRINT”Esta instrucción ha de ser" 
1320 PRINT:PRINT TABC333"Entrada”:PRINT 
1330 PRINT"Corregida”;TABC36 3 ”1" 

1340 PRINT"o” 

1350 PRINT”Borrada”¡TABC363”2” 

1360 PRINT"o” 

1370 PRINT"Quedarse tal cual ?";TABC363"3":PRINT 


1380 

1330 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2030 

2100 

2110 

2120 


INPUT”Su Blaccion "ja 
IF a<1 OR a>3 THEN Í310 
ON a GOTO 2110,2010,2150 


PRINT:PRINT:PRINT"Se esta borrando!” 

FOR J“i TO ev-1 
nlCj3-nlCJ+13 

plCj 3-plCj + 13:qlCJ 3-qlCJ + 13:rlCJ 3-rlCJ+13 
p2Cj3-p8Cj+13:q2Cj3=q8Cj+13:r2CJ3-r8CJ+13 
p3Cj3-p3Cj+13:q3Cj3=q3CJ+13:r3Cj;=r3Cj+13 
p4Cj3-p4Cj+13:q4Cj3«q4Cj+13:r4CJ3*r4CJ+13 
p5CJ 3-p5Cj + 13:q5CJ 3=q5Cj + 13:r5Cj 3=r5CJ+13 
NEXT J 

ev-ev-1:CLS:GOTO 1380 


CLS:PRINT”Entre ahora los” 
PRINT”nuevos valores :”:PRINT 



2130 ver-l:h=ev:ev-i:G0TD 620 

2140 ver=0:ev=h 

2150 CLS:NEXT 1 

2150 CLS:GOTO 1320 

2170 FOR i=l TO et 

2180 PRINT”La”;x;”.instrucción ENT dice :”:PRINT 
2190 PRINT”No.de la curva envolvente :”;n2Ci):PRINT 
2200 PRINT" nc. pasos,- magnitud,long . pausa" 

2210 PRINT”pe~” 

2220 PRINT "nodo" 

2230 PRINT TRBC4)1;TftBCllltlCil;TABC21)viC i ) ; 

2240 PRINT TABC31 iuilCil 

2250 PRINT TftBC412jT«BCll)t2Ci5jTñBC21ív2Ci)¡ 

2260 PRINT TABC31 iui2C i ) 

2270 PRINT TPBC41 3;T(=iBClll t3C i ) ¡ TPBC211 v3C i ) ; 

2280 PRINT T8BC31 )w3C i 3 

2290 PRINT TABC41 4;TñBC113 t4Ci 3;TABC211v4Ci1; 

2300 PRINT TñBC31)w4(i) 

2310 PRINT TPBC41 S;TñBCll) t5Cl);TABC211v5Ci); 

2320 PRINT TftBC31}uiSCi) 

2330 PRINT:PRINT:PRINT”Esta instrucción ha de ser" 
2340 PRINT: PRINT TABC33!) "Entrada” : PRINT 
2350 PRINT"Corregida";TfiBC3Br'l" 

2360 PRINT"o” 

2370 PRI NT"Eorrada";TOBC 36)"2” 

2380 PRINT"o” 

2390 PRINT"Quedarse tal cual ?”;TABC36)”3":PRINT 

2400 INPUT”Su elección ”¡a 

2410 IF a<1 OR a>3 THEN 2330 

2420 ON a GOTO 2530,2430,2570 

2430 PRINT:PRINT:PRINT”Se esta borrando!” 

2440 FOR j=i TO et-1 
2450 n2CJ)=n2CJ+1> 

2460 tl(JJ-tlCj+1):vlCjJ-vlCj+1):wlCj)-uilCj+l) 

2470 t2Cji=t2Cj+ll:v2Cj}-v2CJ+l1:w2CJ)-w2CJ+l) 

2480 t3iJ)=t3CJ+ll:v3Cjl=v3Cj+l):U)3Cjl=w3Cj+ll 
2490 t4( J j=t4C J + l i : v4C J)=v4C J + lí: uj4C J )=uj 4C J + l ) 

2500 tSi Jl-tSiJ+11 : vSCJl=v5Cj + ll : uiSC J )-u5C J + l) 

2510 NEXT J 

2520 et=et-i:CLS:GOTO 1320 
2530 CLS:PRINT”Entre ahora los” 

2540 PRINT“nuevos valores :”:PRINT 

2550 ver-l:h=et:et=i:GOTO 820 

2560 ver=0:et=h 

2570 CLS:NEXT i 

2580 CLS:GOTO 1320 

2590 CLS:GOTO 170 
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2G00 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2680 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2780 

2800 

2810 

2820 

2B30 

2840 

2850 

2860 

2870 

2880 

2880 

2800 

2810 

2820 

2330 

2340 

2850 

2360 

2370 

2380 

2880 

3000 

3010 

3020 

3030 

3040 

3050 

3060 


REH 

REfl ejecutar una pieza musical 
REM 

FOR i=i TO ev 


pl= 

pie 3 

: ql = 

qi 

C l 3 

rl = 

rl C 

l 3 

p2 = 

P2 

13 

: q2 

=q2C 

i 3 


r2= 

r2C i 3 

: p3 = 

P3 

C l 3 

q3= 

q3C 

i 3 

r3= 

r3 

i 3 

: P4 

= P 4C 

i 3 


q4 = 

q4i 1 3 

: r4 = 

r4 

C i 3 

p5 = 

p5t 

i 3 

q5 = 

q5 

i 3 

: r5 

=r5C 

i 3 


n=n 

1C i 3 














ENU 

n, pl 

,qi, 

rl 

, P2 

q2, 

t2, 

P3 

q3, 

r 3 

P4 

. q^ 

. r4, 

P5,q5, 

r5 

NEXT i 














FOR 

i = 1 

TO et 












tl = 

ti C i 3 

: vl = 

vi 

C i 3 

Wl” 

uj 1C 

i 3 

t2= 

t2( 

i 3 

: v2 

= v2C 

i 3 


u)2= 

u)2 C i 3 

: t3- 

t3 

C i 3 

v3= 

v3C 

i 3 

uj3= 

w3 

i 3 

: t4 

= t4 C 

i 3 


v4= 

v4 i i 3 

: Ul4 = 

ui4 

C i 3 

ts= 

tsc 

i 3 

v5 = 

v5C 

i 3 

: Uj5 

=u5C 

i 3 


n-n 

2 C i 3 














ENT 

n, ti 

, Vi , 

Ull 

, t2 

v2, 

uj2 , 

t3 

v3, 

u3 

t4 

, v4 

,iu4, 

tb, v'S, 

lu5 


NEXT i 

FOR i=l TO so 

SOUND kstiJ.tpCiJ.dCiJ.lCiJ.lhCiJ.thCiJ.HPÍií 
NEXT i 
GOTO 170 
REM 

REM grabar instrucciones musicales 
REM 

PRINT”Como se ha de llamar la pieza” 

INPUT”musical a grabar” ; n$.• PR1 NT 

OPENOUT nS 

PRINT #8,so,ev,et 

FOR 1=1 TO so 

PRINT #9,ksCi3,tpCi3,dCi3,1C13,lhCi3,thCi3,gpCi3 
NEXT i 

FOR i=l TO ev 
PRINT #8,niCi 3 
PRINT #9,plCi 3,qlCi3, r 1 C i 3 
PRINT #9,p2(i3,q2Ci3,r2(i3 
PRINT #8,p3Ci3,q3Ci3,r3Ci3 
PRINT 1t8,p4(i3,q4Ci3,r4Ci3 
PRINT #9,p5Ci 3,q5íi 3,r5Ci 3 
NEXT i 

FOR i=l TO et 
PRINT #9,n2(i3 
PRINT #9,tiCi 3,viCi 3,wlCi 3 
PRINT #8, t2C i 3 , v2Ci3 , u)2Ci3 
PRINT #9,t3Ci3,v3ti3, u)3C i 3 
PRINT #9,t4Ci3 , v4Cl3 ,U)4(i3 
PRINT #9,t5Ci3,v5Ci3,u5Ci3 
NEXT i 
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3070 CLOSEOUT 
BOBO CLS:GOTO 170 
3090 REM 

3100 REf1 terminar el programa 
3110 REM 

3120 PRINT"Ha guardado correctamente todas” 

3130 PRINT"las instrucciones musicales ?’’ 

3140 PRINT"En caso negativo, entre usted simplemente' 
3150 PRINT”un 'oh' Cen caso positivo basta con” 

31G0 PRINT”pulsar la tecla espadadora) . ” 

3170 INPUT aS 

3180 IF aS-”oh” THEN CLS:GOTO 2040 

3190 PRINT:PRINT:PRINT” Hasta la vista” 

3200 PRINT:PRINT"Ya puede desconectarme” 

3210 ENO 
3220 REH 

3230 REH UP subprograma esperar 
3240 REM 

3250 LOCATE 5,25 

3260 PRINT"Pulse una tecla *” 

3270 xS-INKEYS 

3280 IF x$-"" THEN 3270 

3290 CLS:RETüRN 
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Lista de variables: 


Los parámetros de la instrucción SOUND: 

ks(I) = Status del canal 

tp(l) = Período del sonido 

d(I) = Duración 

1(1) = Volumen del sonido 

Ih(I) = Curva envolvente del volumen 

th(!) = Curva envolvente del sonido 

gp(l) = Período del ruido 

Los parámetros de la instrucción ENV: 

nl(I) = Número de la curva envolvente 

p1<I) ... p5(!) = Número de pasos (secciones 1 ... 5) 

q1(I) ... q5(I) = Magnitud del paso (secciones 1 ... 5) 

r1(I) ... r5(I) = Longitud de pausa (secciones 1 ... 5) 

Los parámetros de la Instrucción ENT: 

n2(I) = Número de la curva envolvente 

ti (I) ... t5(!) = Número de pasos (secciones 1 ... 5) 

vid) ... v5(!) = Magnitud de paso (secciones 1 ... 5) 

vl(I) ... w5(I) = Longitud de pausa (secciones 1 ... 5) 
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Las otras variables: 


a = Contestación "selección de menú" 
aí = Cadena de contestación 
et = Número de Instrucciones ENT 
ev = Número de Instrucciones ENV 
h = Magnitud auxlI lar 
I = Indice de control 
J = Indice de control 
kl 


k2 > = Valores Iniciales del bucle 
k3 J 
k4 

k5 } = Valores finales del bucle 
k6 


n$ = Nombre de la pieza musical 

so = Número de las Instrucciones SOUND 

ver = Variable auxiliar (Igual a 1 si se llevan a cabo 
modificaciones, de lo contrario. Igual a 0) 
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Descripción del programa: 


Líneas 10- 60 : Título 

Líneas 70- 130 : Reserva de espacio de memoria para 500 
Instrucciones SOUND y 15 Instrucciones ENV 
o ENT 

Líneas 140-280 : Menú de selección 

Líneas 290-970 : Se entran Instrucciones de música 
320 - 410 : Menú 

420 - 560 : Los parámetros de la Instruc¬ 
ción sound 

570 - 760 : Los parámetros de la Instruc¬ 
ción ENV 

770 - 960 : Los parámetros de la Instruc¬ 
ción ENT 

970 : Final de la entrada 

Líneas 980-1280: Se leen Instrucciones de música. 

Los valores Iniciales y finales del bucle 
se escogen de manera que también sea posi¬ 
ble una lectura de Instrucciones adiciona¬ 
les 

Líneas 1290-2590: Se modifican Instrucciones de música 
1320-1420 : Menú 

1430-1740 : Se editan en la pantalla las 
Instrucciones de música que 
pueden ser modificadas o boi— 
radas (menú líneas 1520-1600). 
Para borrar una Instrucción 
SOUND sirve el bucle de pro¬ 
grama líneas 1630-1670. En el 
caso de una modificación la 
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variable ver se equipara a 1 y 
se hace una ramificación (sal¬ 
to de regreso línea 550 ) a la 
parte de programa ''entrar' 1 
(línea 470). En el campo h se 
almacena el valor actual de 
so, ya que la variable so sti— 
ve de índice en la parte de 
programa "entrar". 

1750-2580 : Lo mismo ocurre con las Ins¬ 
trucciones ENV y ENT 
2590 : Final de esta parte de programa 

Líneas 2600-2800: Se ejecutan las Instrucciones de música 
Primero se ejecutan las Instrucciones de 
las curvas envolventes y luego las Ins¬ 
trucciones S0UND. Para el lo, los paráme¬ 
tros Indexados son representados sin ín¬ 
dice, ya que de lo contrario las varia¬ 
bles de parámetro, debido a la existencia 
de demasiados caracteres, tendrían como 
consecuencia el mensaje de error "Impro- 
per argument". 

Líneas 2810-3080: Se almacenan Instrucciones de música 

Líneas 3090-3210: Se termina el programa 

No obstante, aquí existe aun la posibili¬ 
dad de almacenar Instrucciones de música, 
en el caso de que antes nos hayamos olvi¬ 
dado de el lo. 


Líneas 3220-3290: Subprograma "esperar" 
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8.4. La liga nacional alemana de fútbol 


El programa de este capítulo gestiona los resultados de la 
liga nacional alemana de fútbol y establece la 
correspondiente tabla el asifIcatorla. Con pocas 
manipulaciones puede usted adaptar este programa a otras 
modalidades de deporte. En este caso, solamente tiene usted 
que cambiar las Instrucciones DATA en las cuales se 
encuentran los diferentes equipos y, quizás, también los 
cálculos para el orden de clasificación con el fin de 
establecer la tabla. Las Instrucciones DATA, naturalmente, 
hay que modificarlas también cuando al final de una 
temporada hay equipos que ascienden a la liga nacional y 
otros que descienden de ella. 

Para la utilización del programa es recomendable el 

siguiente orden de pasos: 

1. Paso : Lectura de resultados almacenados 

2. Paso : Entrada de nuevos resultados 

3. Paso : Almacenamiento de los resultados anteriores y de 

los nuevos 

4. Paso : Creación de la tabla 

Además, puede usted, en cualquier momento, ver los 
resultados leídos o los entrados. Aquí, existe entonces la 
posibilidad de editar en la pantalla todos los resultados de 
un solo equipo. 
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SI, antes de la lectura, tiene lugar la entrada, los 
resultados entrados quedan sobreescrItos. Esto, no obstante, 
si se desea, se puede evitar modificando la parte de 
programa ''leer resultados": 


35 DIH BspClBí .agClB.-i ,buC1S) ,bvC 1B3 ,BtlClB3 ,at2Cia3 
1050 REM leer los resultados 
1060 REH 

1070 0PENIN "result” 

1080 INPUT #9,eas 
1090 F0R i-1 TO IB 

1100 INPUT #9,espCiljBflCiJ.euCil.evCil.etlCií,et2( i1 

1105 spCil-spCil+espCíl: q( il-gCi3 + egC11:uCi)-uCi)+euCi3 

1106 vCi3-vCi)+evCi):tlCi)-tlCií+etlCií:t2Cií-t2Ci)+et2Ci) 
1110 NEXT i 

1120 FOR i-as+1 TO as+eas 
1130 INPUT #9,slSCi 1 
1110 INPUT #9,sBSCi3 
1150 INPUT #9,stSC13 
1160 NEXT i:CLOSEIN 
1165 as-as+eas 
1170 CUS: GOTO 220 


En las líneas 1080 y 1100 se forman nuevas variables (para 
las cuales, naturalmente, también hay que hacer el 
dimenslonamlento) cuyos valores, luego, son añadidos a las 
variables absolutas (o sea, más la entrada anterior) 
relevantes para proseguir la ejecución del programa. Además, 
se modifican el valor Inicial y el final del bucle en la 
línea 1120, para evitar que queden sobreescrItos valores que 
ya se tienen. 

Sin embargo, un Inconveniente, quizás decisivo, de esta 
versión del programa es que la función de programa ''mirar" 
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ahora ya no da los resultados por su orden de entrada. SI 
está usted especialmente Interesado en observar los 
resultados de un equipo determinado en su orden temporal, o 
bien en examinar sus tendencias relativas a su rendimiento 
en las diversas fases de la temporada, renunciará, 
seguramente, a esta versión del programa. 


Programa: 

10 RETI 121 
20 CLS 

30 PRINT ”121 - Pregrama para el campeonato de " 

40 PRINT” liga de futbol”:PRINT:PRINT:PRINT:PRINT:PRINT 

50 PRINT TABC9) "Bernd Kouial, 1985" 

50 GOSUB 1750 

70 DIN bmSC 18) , RSCISI' ,spC18) ,gC18) ,uC18) ,vC18) 

BO DIN tlC18),t2C18),plC18),p2ClB) 

90 DIN sl$C306),s2SC306),stSC306) 

100 DATA Real Madrid,RN,Barcelona,BA 

110 DATA Atl. Bilbao,AB,Atl. Madrid,AM 

120 DATA Sevilla,SE,Zaragoza,ZA 

130 DATA Sport. Gijon,SG,Real Sociedad,,RS 

140 DATA Betis,BE,Uaiiadi1id,UA 

150 DATA Espanyol,ES,Racing Santander,SA 

160 DATA Cádiz,CA,Las Palmas,LP 

170 DATA Osasuna,OS,Hercules,HE 

180 DATA Ualencia.UC,Celta,CE 

190 FOR i-1 TO 18 

200 READ bmSC i ) ,k$Ci) 

210 NEXT i 

220 PRINT TABC10)"Menú”:PRINT:PRINT 
230 PRINT TABC33)"Entrada":PRINT:PRINT 
240 PRINT"Resultados”:PRINT 
250 PRINT” Entrar";TABC 361"1”:PRINT 
2G0 PRINT" Mirar”;TAEC3E)”2”:PRINT 

270 PRIf'iT” Leer”i1*6(363 R 3 8 • PMNT 

280 PRINT” GrabarCantes de crear la” 

290 PRINT” tabla clasif icatoria) TABC36)"4” : PRINT 
300 PRINT" Crear la tabla y” 
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310 PRINT" terminar b! prngrama";TABC363”5”:PRINT 

320 PRINT:PRINT:INPUT"Su elección " ; a:CLS 

330 IF a<1 OR a>5 THEN 220 

340 ON a GOTO 360,700,1040,1180,1320 

350 REfl 

360 REtl Entrar los resultados 
370 REtl 

380 WINDOW #1,17,40,1,25 

380 PRINT #1,”A1 entrar datos utilice” 

400 PRINT #1,"usted las siguientes” 

410 PRINT #1,"abreviaciones PRINT #1 

420 FOR í-l TO 18 

430 PRINT #l,bmSti3;"-";kSCi3 

440 NEXT i 

450 WINDOW «2,1,16,1,25 

460 PRINT «2,"Cuantos result.” 

470 PRINT #2,"de partidos" 

480 PRINT «2,"quiere usted" 

490 INPUT «2,"entrar ”;es:PRINT #2 

500 FOR i-as+1 TQ as+es 

510 INPUT #2,"Equipo local ”;htS 

520 INPUT «2,"Goles ” ; th 

530 INPUT #2,"Equipo visitante "¡gtS 

540 4NPUT «2,"Goles ”;tg 

550 FOR J-l TO 18 

560 IF htS-kSCJl THEN Jl-j 

570 ¡F gtS-kSÍJi THEN J2-J 

580 NEXT J 

590 spCJ1i=spcJ13 + 1:spíj23-sptJ23+1 

600 IF th>tg THEN gíJ13-gCJ13+1:vCj23-vCJ23+1 

610 IF th-tg THEN uíJ13-uCJ13 + 1:uCj23=uCJ23+1 

520 IF th<tg THEN v(J13-vCJ11 + 1:gCJ23=gCJ23 + 1 

630 tlCjl3-tl<:jl3+th: t2iJ13-t2Cjl3+tg 

640 tlCJ23“tlcj23+tg:t2Cj23=t2Cj23+th 

650 thS=STRSCth3:tgS-STRSitg; 

660 slSt13-bmSÍjl3:s2$Ci3=bmSCJ23:stSCi3=th$+” :”+tg$ 
670 PRINT «2,:NEXT i:as=as+es 
E80 CUS:GOTO 220 
690 REN 

700 REN mirar los resultados 
710 REN 

720 PRINT TñBU03"t1enu”: PRINT: PRINT 
730 PRINT TAEC 33 .< "Entrada” : PRINT: PRINT 
740 PRINT'üirar todos los resultados";TABC363”1PRINT 
750 PRINT”Nirar les resultados de” 

760 PRINT"un equipo";TABC3S3"2":PRINT 

770 PRINT"Ya no quiere ver mas "¡TABC363”3" 

7e0 PRINT:PRINT:INPUT"Su elección ";a: Í10DE 2 
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730 IF a< 1 QR a>3 THEN I10DE 1: EDTO 7E0 
BOO 1-0:ON a BOTO 810,860,1020 
810 FOR i-1 TO as 

820 PRINT SlSCil; "-”;s2SLll ;TflBC45jstS(.i:' 

830 1-1+1:IF 1-18 THEN 1=0:G0SUB 1750 
840 NEXT i 

850 GOSUB 1750 : flQDE 1: GOTO 720 
860 PRINT”A1 entrar datos utilice” 

870 PRINT" las siguientes abreviaciones :”:PRINT 

880 FOR i-1 TO 18 

830 PRINT bm$(i3;;kSCi3 

900 NEXT i:PRINT 

910 INPUT”Que equipo ”;mS:CLS 

920 FOR i-1 TO IB 

930 IF mS-k$Ci1 THEN mS-bmSCil 

940 NEXT i 

950 FOR i-1 TO as 

960 IF m$-sl$(i 1 OR mS-sESCi) THEN 380 
970 GOTO 1000 

9B0 PRINT sl$Ci3;;s2SCi 3;TftBC453stSC 1 3 
990 1-1+1:IF 1-18 THEN 1-0:GOSUB 1750 
1000 NEXT i 

1010 GOSUB 1750:nODE 1:GOTO 720 
1020 NODE 1:G0T0 220 
1030 REH 

1040 REM leer resultados 
1050 REH 

1060 OPENIN "result” 

1070 INPUT #9,as 
1080 FOR i-1 TO 18 

1090 INPUT #9, spC i) , gC i 3 , uC 1 1, vC i 3 , ti C i 1, t2C i 3 

1100 NEXT i 

1110 FOR i-1 TO as 

1120 INPUT #9,slSCi 1 

1130 INPUT #9,s2$( i 1 

1140 input ag.stsci) 

1150 NEXT i:CLOSEIN 
1160 CLS:GOTO 220 
1170 REM 

1180 REM grabar resultados 
1190 REM 

1200 OPENOUT "result" 

1210 PRINT #9,as 
1220 FOR i-1 TO 18 

1230 PRINT #9,spCi3,gCi3,uíi3,vCi3,tlCi3,t2Ci3 

1240 NEXT i 

1250 FOR i-1 TO as 
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XEGO PRINT «9,Sisen 
1270 print »9,sssen 
1200 print to,9ts(n 
1290 NEXT 1:CLGSEOUT 
1300 CLSrGOTG 220 
1310 REN 

1320 REN crear la tabla c1asificatoría 
1330 REN 

1340 FOR i-1 TQ 10 

1350 pi(n-Bcn*2+ucn 

1350 p2Ci)“v(i 3 

1370 NEXT i 

1300 FOR 1-1 TO 17 

1390 FOR J-l+1 1U 10 

1400 IF plCn<piCJ3 THEN GOSUB 1650 

1410 IF plCÍi>plCJJ THEN 1470 

1420 IF p2in>p2i.JI THEN GOSUB 1650 

1430 IF p2ClÍ<p2CJI THEN 1470 

1440 IF tltn-t2tn<tlC Jl-t2t J) THEN GOSUB 1650 
1450 if tm:>-t 2 cn>ticj.i-t 2 ':ji then 1470 

1460 IF tuixtllj) THEN GOSUB 1650 
1470 NEXT J 
1400 NEXT 1 
1490 NODE 2 

1500 PRINT T06'20.'"1 ab la del campeonato de 1 ign de fútbol" 
151.0 PR1N1 : PRINT: PRINT T0B(3Ol"PJ G E P GOLES 

1520 FOR 1-1 TG 10 

1530 PRINT USING ; 1 ¡ : PRINT" . " ¡ bmSt. 13 ¡ 

1540 PRINT T0Bi:3O:i USING "¡spCi); 

1550 PRINT USING “»(* ” ¡ gl 1 .' ¡ u'. 11 ¡ V i ' ¡ 

1560 PRINT USING ” "jtlíl); 

1570 PRINT": "¡ : PRINT USING "tMtt* "¡tSCil; 

1580 PRINT USING " tttt ”;pl'.n¡ 

1530 PRINT": ”¡ : PRINT USING " tMt " ¡ p2C i 1 
1500 NF.XT i 

1610 GOSUB 1750: I IODE 1 

1G20 PRINT Final del programa":END 

1630 REN 

1640 REN subprograma cambiar 

1650 hS-bmS'. J ): bm$i J I-bm$C i,i:bm$' i ,' = h$ 


PUNTOS' 
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1EEC ¡ 1 -spCJ 3:spt J3-spCi3:spt 1 3-h 
1 E7G h =3 ( J 3 : a c J 3 ”B C i 3 : Q C i 3 -h 
1600 h-uCJ 3:uCJ 3“uC 1 3:uii3”h 
1E0G h”v C J 3:vCJ 3~vCi3:vCi3“h 
17CC ¡rtltJ3:tlCJ3-tlCi3:tiCi3-h 
171C h-tBCJ3:tBCJ3-tBCi 3:tECi3-h 
17B0 h-'plJ 3 : pl C J 3-plC i 3 : pl C i 3-h 
1730 h-pBC J 3 : pBC J 3 -pB C i 3 : pBC 13-h 
1740 RETURN 

1750 REN subprcgrama esperar 

17EG LOCATE 5,BS 

1770 PRINT"Pulse una tecla ! " 

17BG /.5-1NKEYS 

170C IF *S=”" THEN 1700 

1000 OLE:RETURN 
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Lista de variables: 


a = Contestación ''Se lección de menú 

as = Número de resultados de partidos 

bm$(I) = Equipos de la liga nacional 

es = Número de resultados entrados 

g(I) = Número de partidos ganados por un equipo 

gt$ = Equipo de fuera 

h = Variable auxiliar en el subprograma ''cambiar'' 
h$ = Variable auxiliar en el subprograma "cambiar" 
ht$ = Equipo de casa 
I = Indice de control 
j = Indice de control 

jl = Número del índice del equipo de casa 

j2 = Número del índice del equipo de fuera 

k$(I) = Equipos de la liga nacional en forma abreviada 

I = Indice contador 

m$ = Equipo en la parte de programa "mirar resultados" 
p1(I) = Puntos positivos de un equipo 
p2(!) = Puntos negativos de un equipo 
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si$m 

= Equipos participantes en un partido de fútbol 

s2$ 11) 

sp(I) = Número de partidos de un equipo 

st$(I)= Resultado de un partido de fútbol 

ti(I) = Goles realizados 

t2(!) = Goles encajados 

tg = Goles del equipo de fuera 

tg$ = tg como variable de cadena 

th = Goles del equipo de casa 

th$ = th como variable de cadena 

u(I) = Número de partidos de un equipo acabados en empate 
v(I) = Número de los partidos perdidos por un equipo 
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Descripción del programa: 


Líneas 10-60 : Título 

Líneas 70 - 90 : Reserva de espacio de memoria para 18 
equipos y un total de 306 partidos 

Líneas 100 - 180 : Los equipos de la liga nacional de 
fútbol, con su respectivo nombre a- 
brevlado, son puestos, como datos, a 
disposición del programa 

Líneas 190-210 : Lectura de los datos 

Líneas 220 - 340 : Menú e Instrucciones de salto 

Líneas 350 - 680 : Entrada de los resultados de fútbol 

380 - 440 : Edición de una aclaraci¬ 
ón en una ventana de te¬ 
to definida 

450 - 670 : Entrada de los resulta¬ 
dos en el área restante 
de la pantalla. 

En las líneas 550-580 se 
comparan los nombres de 
los equipos entrados con 
los datos, para propoi— 
clonar los índices de 
los dos equipos que pai— 
tlclpan en el partido.De 
acuerdo con estos índi¬ 
ces se actualizan (líne¬ 
as 590-640)las variables 
relevantes para la crea¬ 
ción de la tabla, y el 
resultado de fútbol, co¬ 
mo ta I se guarda en los 
campos previstos para e- 
11o ( líneas 650- 660). 
Con el lo,en la línea 660 
se ofrece de nuevo posl- 
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bilí dad de procesamiento de 
cadena. 

680 : Salto de regreso a la selección de 
menú 

Líneas 690-1020 : VisualIzaclón de los resultados 

720 - 800 : Selección de menú y rami¬ 
ficaciones del programa 
810-1010 : Se pide un nombre de equipo 
(línea 910), se Identifica 
(línea 920-940) la forma a- 
brevlada de escritura y se 
editan ( líneas 950-1000 ) 
los resultados del partido 
con participación del equipo 
Indicado 

1020 : Salto de regreso a la selección de 
menú 

Líneas 1030-1160 : Se leen resultados 

Líneas 1170-1300 : Se almacenan resultados 

Líneas 1310-1610 : Se crea la tabla 

1340-1370 : Se calculan los puntos posi¬ 
tivos y negativos de cada e- 
qu Ipo 

1380-1480 : Cada equipo es comparado con 
cada uno de los otros equi¬ 
pos y, si procede, se cambia 
el orden de clasificación en 
el subprograma (líneas 1650 
-1740) (véase además el ca- 
capítulo 2.4 de este libro). 
Como valores comparativos 
sirven los puntos positivos 
(líneas 1400-1410), los pun¬ 
tos negativos (líneas 1420- 
1430), la diferencia de go¬ 
les (líneas 1440-1450) y el 
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número de los mismos reali¬ 
zados (línea 1460).So lamente 
en caso de Igualdad de un 
criterio comprobado se recu¬ 
rre al respectivo siguiente 
cr I ter I o. 

1490-1610 : La edición formateada de 
la tabla 

Línea 1620 : Fin del programa 

Líneas 1630-1740 : Subprograma "cambiar 1 ' 

Líneas 1750-1800 : Subprograma "esperar" 
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8.5. Filón de Ideas 


- Poesías por el ordenador ( en la mayoría de los casos, 
las palabras que riman tienen, en sus partes posterio¬ 
res las mismas serles de caracteres ) 

- Manuales de consulta para el cuidado de flores o de 
jardlnería 

- Fichero de recetas para cocineros aficionados 

- Ordenar y gestionar colecciones de toda clase 

- Cursillos programados (vela, morse, etc.) 

- Evaluación de los resultados de grandes competiciones 
deportlvas 

- Su ordenador como planificador de entrenamientos 

- Tiempos de exposición en el laboratorio de fotografía 
( para ello es especialmente adecuado su CPC ya que 
tiene un reloj de tiempo real ) 

- Gráficos de 2D y 3D 

- Ordenador como productor de películas 

- CAD para labores de punto 

- Patrones de papel programados 
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Planificación del trayecto de su ferrocarril o de su 
pista de carreras miniatura 

Control, por ordenador, de su ferrocarril mlmlatura 
(sólo con conocimientos adicionales de hardware) 

y muchas otras cosas 
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y de la siguiente manera podría ser un sencillo programa 
para el cuidado de las flores. 


10 PEI! cuidado da las Flores 
20 1:—4 


30 REII es igual al numero de flores o plantas 
40 DIII bSf.l. ’, »■$'. 1: •, 1 sSCIO 

50 DOTO ceropegia ucodiilflcr luminosa.' • ' 

51 DOTO regar poco 

52 DOTO conservar en lugar claro y caliento 
EO DATO helrine soleiroiii (melena) 

El DOTO rogar principalmente desde abajo 
E2 DATO conservar en lugar claro y algo caliente 

70 DATA heder a (yedra) 

71 DOTA regar poco 

72 DATA pener en un lugar Fresco y ciaron media sombreado 
DO DATA begonia (legonio reina) 

01 DATA conservar sin demaseada humedad 
02 DATO poner en lugar medio sombreado 
4B0 RED creación de las instrucciones DATA 
430 REIA DATA Flor, agua, luz 
500 F0R i-1 T0 I. 


510 READ b$( i ), ui$i i '), 1 sSd) 
520 NEXT i 
530 CLS 


540 PRIIJT"pora loo siguientes Flores o plantas" 

550 PR!NT"puede usted pedir las informaciones de cuidado:" 
560 F'OR i-1 T0 I: 

570 PP1MT i;";b*ri) 

500 IIEXT i 

500 PRINT:PRINT:1MPUT”Indique usted un numero";n 
000 1F n> I: ÜR n< 1 THEIJ 500 
610 CLS 

620 PRINT bSln):PRINT:PR11JT:PR1MT líin): 

630 PRINT:PRINT:PRINT:PR1MI:PRINT "pora mas informaciones, 
640 PRINT"ejecute de nuevo el programa' 


favor’ 


Este programa está formado de manera similar a la del 
programa para el cálculo de las calorías (118). Sin gran 
trabajo se puede ampliar este programa en más tipos de 
plantas. Además, naturalmente, también es posible hacer otra 
distribución de los criterios de cuidados. 
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Además, presentamos a continuación un corto programa para el 
tema '' labor de punto" Aparte de la posibilidad, algo 
laboriosa desde el punto de vista técnico de programación, 
de esbozar pulovers en la pantalla y, por medio de una 
hardcopy-routlne. Imprimir patrones de corte de papel, se 
puede programar muy fácilmente una "prueba de mallas" ya 
que, aquí, se trata de un sencillo problema de regla de 
tres: 

10 RE!! prueba cíe las mallas 
20 CLS 

3C INP'JT"numero de mallas de ÍOcm. de anche 
40 PRINT:PRIMT:INPUT "anche del pulever en cm.”;b 
50 PRIMT:PRIMT:PRIMT:PRIMT 

EC PRIMT "asi pues necesita ustedm*b/10;"mallas . ” 
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9. Los queridos pequeños 


9.1. Advertencia preliminar 


En este capítulo se trata de mostrar de qué manera, como 
escolar o aprendiz, se puede aplicar o aprovechar el Amstrad 
CPC. Quizás tiene usted niños en edad escolar a los cuales, 
con los programas de este capítulo, les podrá ofrecer una 
alternativa a los programas de juegos ampliamente extendidos 
en los círculos escolares. 

Naturalmente, es posible desarrollar programas de gran ayuda 
para los más diversos problemas de las tareas diarias 
escolares. Aquí, no obstante, nos encontramos, en primer 
plano, con problemas matemáticos, ya que la asignatura de 
las matemáticas sigue siendo la más cercana al ordenador. 
Además, tenemos un programa de vocablos bastante grande que, 
no en último lugar, es muy Interesante porque, sin grandes 
dificultades, puede ser adaptado a las preguntas que 
deseemos. 
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9.2. La tabla de multiplicar 


El programa de este capítulo es especialmente adecuado para 
los niños que van a la escuela primarla, ya que se puede 
cambiar, sin problemas, a otra operación aritmética 
fundamental y, por lo tanto, con el mismo se puede cubrir 
una parte esencial de la matemática elemental. 

Partiendo de un valor máximo a entrar, en el desarrollo del 
programa se generan números aleatorios que sirven para el 
planteamiento de una tarea de multiplicación. Esta tarea se 
debería resolver lo más correctamente posible. Al final del 
trabajo de aprendizaje se edita la cuota de éxito. Hasta 
aquí se trata - como con el ' 1 entrenador de vocablos" - de 
un programa de consulta. 


Programa: 


10 REH 122 
20 CLS 

30 PRINT "122 - Programa para la practica” 

40 PRINT TfiB(7)”de las tablas de multiplicar” 

50 PRINT .-PRINT: PRINT: PRINT: PRINT: PRINT 
BO PRINT TPBC91 "Bernd Kowal, 1985” 

70 G05UB 350 

80 PRINT”Pulsando la tecla ’z’" 

90 PRINT”puede interrumpir el siguiente ejercicio” 
100 PRINT:PRINT”Primero indique usted,” 

110 PRINT”como ha de ser de grande el” 

120 INPUT”numero mas alto del ejercicio ”;gz:CLS 
130 i-i+1 

140 PRINT”E1”;i;”. ejercicio :”:PRINT:PRINT:PRINT 
150 fl-ROUNDCRND*gzl:F2-R0UNDCRND*gzl 
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160 PRINT TABC10) f1;"por”;f2;:INPUT” - ",ep£ 

170 IF epS=“z” THEN B50 
180 ep-UALCepS) 

190 p-fl*FE:PRINT:PRINT 
EOO IF ep<>p THEN SEO 

E10 PRINT TABC11i"correcto":ra=ra+l:GOTO 240 
2E0 PRINT TABCllV’mal”:fa-fa+l:PRINT:PRINT 
S30 PRINT TABC10) F1;"por”¡f2;" - ”¡p 
S40 GOSUB 350:GOTO 130 
E50 CLS:l-i-l 

260 PRINT" De"¡i;"ejercicios han":PRINT 
270 PRINT” Sido contestados”:PRINT 
280 PRINT Fa;"mal, y":PRINT 

290 PRINT ra;"correctamentePRINT:PRINT:PRINT 
300 PRINT ROUND C f a/1*100,2 j; 

310 PRINT"-í de respuestas son incorrectas " 

320 PRINT: PRINT” y ” ; ROUND i ra / 1*100,2:) ; 

330 PRINT” *i son correctas." 

340 PRINT:PRINT:PRINT"Fm de ios calcules":END 

350 REn subproprama esperar 

360 LOCATE 5,25 

370 PRINT"Pulse una tecla ! ” 

380 xS-INKEYS 

390 IF xS-"” THEN 380 

400 CLS:RETURN 
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Lista de variables: 


ep = Producto a entrar 

ep$ = Campo de entrada para ep 

fl = Primer factor 

f2 = Segundo factor 

fa = Número de contestaciones erróneas 

gz = Número mayor del ejercicio 

I = Número de operaciones planteadas 

p = Producto obten I do 

ra = Número de contestaciones correctas 
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Descripción del programa: 


Líneas 10 - 70 : Título 

Líneas 80 -120 : Edición de una aclaración sobre el apro¬ 
vechamiento del programa y petición de un 
valor para el número mayor del ejercicio. 

Líneas 130-160 : Se plantea un problema y se pide un re- 
suItado 

Líneas 170-180 : SI se ha de Interrumpir el ejercicio, se 
efectúa un salto a la edición de éxito. 
De lo contrario, la entrada efectuada es 
convertida en un valor numérico 


Líneas 190-240 : Se comprueba si la entrada es correcta, 
se edita un comentarlo adecuado y se re¬ 
gistra el resultado de la comprobación. A 
continuación tiene lugar una ramificación 
a la línea 130, para que se pueda plan¬ 
tear otro problema. 

Líneas 250-330 : Edición de la cuota absoluta y relativa 
de éxito 


Línea 340 : Fin del programa 

Líneas 350-400 : Subprograma ''esperar 1 ' 
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9.3. Comprobación de números primos 


Un número entero z se llama primo cuando solamente es 
divisible sin resto por 1 y por sí mismo. Solamente el 
número 1 representa una excepción. Aunque el 1 solamente es 
divisible por 1, no se le considera número primo. 

SI se prescinde del número 2, que normalmente no es 
considerado como número primo, se puede comprobar además que 
un número par no puede ser un número primo, ya que, en todo 
caso, es divisible por 2. 

Por el contrario, la comprobación de números Impares exige 
algo de tiempo, ya que han de dividirse por todos los 
divisores que sean mayores que 1 pero menores que ellos 
mismos. Siempre que de estas divisiones salga un resultado 
entero (división sin resto), el número comprobado no es, 
obviamente, un número primo. Sólo cuando en todas las 
divisiones haya un resto, nos encontramos ante un número 
primo. 

Salta a la vista que, especialmente la comprobación de 
números grandes, sin la utilización del ordenador, es muy 
laboriosa. Aquí hay que decir, en cambio, que el 
correspondiente programa no es muy difícil. El desarrollo 
del programa resulta directamente de las explicaciones dadas 
arriba. 
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Programa 


10 RETI 153 
20 CLS 

30 PPINT "123 - Programa para la comprobación de 
*10 PRINT TfiB'T' 7 :- números primes" 

5C PPINT:PPINT:PRINT:PRINT:PRINT:PRINT 
SC PRINT TñBI9> "Eernd Koual, 1905” 

70 GOSUB 210 

00 PRINT”Entre usted un numero" 

90 INPuT"entero positivo ”;z 
100 PRINT:PRINT:PRINT 
110 IF z<>i THEN 140 
120 PRINT"E1 numero 1 no cuenta” 

130 PRINT''como numero primo.”: GOTO 200 

140 FOR 1-2 TO z/2 

150 IF z/l-INTCz/l.1 THEN 1B0 

160 NEXT l 

170 PRINT z;"es un numero primo.":GOTO 200 
ISO PRINT z;’’no es un numero primo pues”; z; "es” 
190 PRINT "divisible por”;i 

200 PRI NT .-PRI NT : PRI NT "Fin de los cálculos” : END 

210 REfl subpregrama esperar 

220 LOCATE 5,25 

230 PRINT"Pulse una tecla !” 

240 xS-INKEYS 

250 IF xS-"" THEN 240 

260 CLS:RETURN 
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Lista de variables: 


I = Divisor 

z = Número a comprobar 


Descripción del programa: 

Líneas 10 - 70 : Título 

Líneas 80 - 90 : Entrada de un número 

Línea 100 : Impresión de tres líneas en blanco 

Líneas 110 - 130 : SI se ha entrado el número 1, se edita 
un comentario y se hace una ramificación 
al final del programa 

Líneas 140 - 160 : En este bucle del programa se aumenta el 
divisor I en 1 cada vez hasta que, como 
máximo, se haya alcanzado el valor z/2. 
SI se ha conseguido esta división sin 
resto, se ramifica a la correspondiente 
edición de resultado. El bucle solamen¬ 
te corre hasta z/2, ya que, con diviso¬ 
res mayores, ya no se puede obtener nin¬ 
gún resultado entero. 

Para z=2 y z=3, no se ejecuta este bucle 
ya que z/2<2. No obstante, en la línea 
170 se obtiene la parte correcta de la 
edición del resultado. 
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Líneas 170 - 190 : Edición de resultados 


Línea 200 : Fin del programa 
Líneas 210 - 260 : Subprograma 


'esperar'' 
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9.4. La determinación de una posición cero 


El cálculo de una posición cero para cualquier función es un 
elemento Importante de la matemática. Muchos problemas 
matemáticos están relacionados con dicho cálculo. El 
proceso, que sirve de base del presente programa es el del 
anldamlento de Intervalos. Dentro de un Intervalo con los 
límites a y b se encuentra, con toda seguridad, una posición 
cero cuando los signos de los valores de las funciones, fía) 
y fíb), son distintos. Ahora bien, si el signo de f( ) 

es Igual que el de fía), la posición cero se encuentra en el 
Intervalo parcial derecho. En este caso, a se equipara a -Sfi- 
y se repite el proceso. De forma análoga, b se equipara a 
si la pos telón cero se encuentra en el Intervalo parcial 
Izquierdo, o sea que el signo de f( ) es el mismo que 

el de fíb). 

Este proceso podría repetirse casi de una forma sin fin. Por 
este motivo, como criterio de ruptura, hay que Indicar un 
valor que limite el número de anldamlentos de Intervalos. En 
el programa, este valor es el 500 (línea 270). SI los 
Intervalos son pequeños, bastan, ciertamente, menos 
anldamlentos para conseguir un resultado exacto, pero, si 
los Intervalos son muy grandes, este valor ya puede ser 
demasiado pequeño. 

El presente programa está sujeto a la condición previa de 
signos diferentes para los valores de función de los límites 
de los Intervalos, aunque, naturalmente, también se pueden 
encontrar posiciones cero en el Intervalo cuando no se 
cumpla esta condición previa. En este caso ocurre, 
simplemente, que se ha elegido un Intervalo demasiado 
grande. Además, no consideramos el caso especial de varias 
posiciones cero. Por este motivo, es aconsejable trabajar 
con Intervalos relativamente pequeños. 
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ESte programa 14>o ppudde .pplicar ustedaa liasfíuoóioeesqqae 
desee. So lamente see r trata c de modf fiear ^adecuadamente,een 
cada caso, lia ITíeea 3390 del oprograma.NfclocbbStaifiéo, ddébe 
uStéd respétar I iaccoitrttnúldaddde lia íuoétóneeilitnada, yyaqqeq, 
de lo contrario, ttieoen i lugar ¡mensg'gesddeeerDOC.EEneetee 
programa, sehha i liddieado I 4a fíunción sipote 

33 

yy--=xx— ,:, 5 

ESta {unc<f6ntt4eoeuuaappoSióí6n cero ;en 
xx =11.7099 .... 


Programa: 


10 RETI 124 
20.:cIjS 

30 PRIIMT 7£24 - D Prgg.r.ama para laLldeteEimPnaiiDDn 
tC ’PRI.NT I MBC7 5 ade 1 tas irntenseccmases ::con líbeseles" 

SO PRI NT:’PRIJNT PPS IlHtT PPB LNT PPRI NT PFRIINT 
BC PRI.NT TSEE3 J TBerndxHauial, H9B3” 

70 :3QSi3E -360 

80 PRI.NT "En lta linea J3t0 ise indroa jUBaffiunciDoncDOBSbantee . 
30 PRI NT''irdddí'EieatitíGcesta linea idé1rpcsHEsmé" 

100 PR I.NT Npsédecasfedduiliti.l izar eéi ” 

110 PRI.NTppcQgBoma ttaifibren, paraoútrat Eionacon 
120 IGQSlíJB 3BB0 

’ T30 f PR IiNT CQee i riateroé toi bay qqué ” 

; lt'0 PR I.NT Senaam mar ' 5 ?" PPR1NT 
, 150 I IilHPCiT RPtr une pp ido edé 1 i rmteroá fco aa " ;>a 
ISO 1NRÜTPEpaá 1 ridé 1 . rsterualo b ’.’^b 

170 X3QSBE 33tCrSagy 
180 t.b; SBBBE 3BSG PEbgy 
120 PR T.fJT PPRÍÍJT PPRIÍ3T ff da I 1 = " ; f a 
200 PR I.NT ff fcb > " fEb PPB I.NT : PR UNT 
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210 IF Fa-0 THEN PRINT"Intsrsec::cn del eje x en x-";a:G0T0 330 
220 IF Fb-0 THEN PRINT”Interseccion del eje x en. y.- "; b: GOTO 330 
230 IF SGN C f a 3 < > SGN C fb 3 THEN 270 
240 PRINT”La condición, signe FCal'O" 

25Ó PRINT”s igno fCb3 no se cumple." 

260 GOTO 330 

270 F0R i-1 TO 500 

2B0 x-Ca+b)/2:G0SUE 340 

290 IF SGNCy 3 “SGNC f a 3 THEN a-x:fa-y ELSE b-x:fb-y 
300 NEXT i 

310 PR INT: PR INT: PR INT " Intersección del eje en 
320 PRINT”f C x 3 ; y 

330 PRINT:PRINT:PRINT”Fin de los calcules ENO 
340 y-x‘3-5 
350 RETURN 

360 REn subprograma esperar 

370 LOCATE 5,25 

380 PRINT"Puise una tecla 

390 xS=INKEYS 

400 IF xS-”" THEN 39C 

410 CLS:RETURN 
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Lista de variables: 


a = inicio del Intervalo 
b = Final del intervalo 

fa = Valor de función del Inicio del Intervalo 
fb = Valor de función del final del Intervalo 
I = Indice de control 
x = Valor x de la función 
y = Valor y de la función 


Descripción del programa: 


Líneas 10 - 70 
Líneas 80 -120 
Líneas 130-160 


: Título 

: Edición de una aclaración y "esperar" 
: Entrada de los límites de Intervalo 


Líneas 170-200 : los valores de función de los límites de 
Intervalo se calculan por medio de saltos 
al subprograma y son editados 

Líneas 210-220 : Edición de un comentarlo y ramificación 

al final del programa si el valor de fun¬ 
ción de un límite de Intervalo es Igual 
a 0. 
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Líiíeass230O—2600: :Stinoosae comp¡téelda condfldióiíiprevláa de 
s tgnos s d fif érentée, seeedlitáaun r comercianI ck 
yyseehhoeeunaa ramfif fdaciáónal I f Inal í dél 
ppogpamaa 

Ltiíeaa 2200: lA^prténaadeeuDnbbcfceedeopcoggamaappraaSOOCanJit 
damliérctctesdec I ntervalóss 

Llneaa 2800: :S6edfi , HdeeeéI IritéBwalióo ppr- laamtrtád íy see cal- 
culáaeél corre6porcdi1énteevaid>crdea lánfunn- 
cióón 


Ltiíeaa 29G0::SSieél sidigooddélvalidr. dele lia fdnolón del ícenr- 
trtoodeél Irttérvatdy., SGNKiy^, es tijyaüal 
slggoodtíél valor de> Iáafaaci66r de 11 I f mí — 
teelzqqlérdo del¡Irttervatdy, SGNtf ai¿ ,enr- 
tooceesei! centro dell intervalo seecoo- 
vlértéeennel;I I írótteeIzquiérdo dei lmtsmo 
para a I áastgulénte ;mfitidc¡ddeirttervalOoyiel 
valdDrde fdnclón ddticentitooddl Intervalo 
ercnei! valor de funclórtn dé<l: I frn!te Iz- 
qqliécdOodei Intervaloestdjulénte. 

SI ¡S6Níiy)<>SGN(fa>;. eí Icentito del I Iriter- 
vaiéoooel vatór de funclóhrtdel'l Icentro del 
mi4ma> se convlertee eor etl I Tfh tte- derecho 
del! Intervalo.; o ene!Ivatócr de función 
del! límite derecho dél : Irttécval.o si guíen¬ 
te* . 


Lliíeaa 3000: :FIFiiat I ddé Ibuclé del programa 
Líheass3I00—3200: :Edt¡éióó: del iresuJtadde 
LIrtea o 3300: :Ffiiat I dét I programa 

LIneaij 34003300: :Sübprogpama paradla def inlclón- de la fun¬ 
ción 

Líneass36G0—4100:: Subprograma 1 'esperar'' 
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9.5. El monltor~(de vocablos 


Su CPC tambiérín le puede prestar una ayuda eficaz en el 
aprendizaje de lenguas extranjeras. Así, por ejemplo, serta 
posible desarroollar un programa completo para la enseñanza 
de un idioma. Esto, no obstante, sobrepasaría el marco de 
este libro. C&on buenos o muy buenos conocimientos de BASIC 
Incluso ustedd mismo podría intentarlo. Entonces, 
naturalmente, ddebería tener también adecuados conocimientos 
del idioma en cuestión y, sobre todo, interés por esta 
temática. 

En este progrcrama se trata de ''hacer esgrima'' con los 
vooablosi Proboablemente también ha aprendido usted palabras 
con el cuadermo de vocablos tapando la columna. Esta 
posibilidad de? aprender palabras tiene el inconveniente de 
que el orden dele las palabras siempre es el mismo. Si, luego 
en el examen, sae escoge otro orden - y seguro que será así - 
tendrá usted dliif leuItades para repetir los éxitos que tiene 
en casa. Así pues, necesita alguien que tenga tiempo para 
practicar con usted. Este alguien puede ser, desde hoy, su 
CPC. Siempre ttiene tiempo para usted. El programa que 
necesita para < el lo lo encontrará en las páginas siguientes. 
Está configuraado de una forma tan cómoda que puede asumir 
toda la organízzaclón del aprendizaje de vocablos. 
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El programa tiene las siguientes funciones: 


Vocablos 

- Entrar 

- Leer 

- Corregir (con la posibilidad de mirar todos los vocablos 
contenidos en la memoria de trabajo, así como de borrar 
vocablos aislados) 

- Completar ( por medio del teclado o de una lectura adi¬ 
ciona I) 

- Aprender (palabra alemana - palabra extranjera o palabra 
extranjera - palabra alemana) 

- Almacenar 

SI, por ejemplo, se encuentran 50 vocablos en la memoria de 
trabajo del ordenador, el aprendizaje se realiza de manera 
que primero se escogen al azar 50 vocablos. Las palabras 
correctamente contestadas no son tenidas en cuenta. Por el 
contrario, las palabras contestadas Incorrectamente pueden 
aparecer más de una vez. A continuación les toca el turno a 
las palabras que todavía no han sido escogidas por el 
ordenador. Finalmente, se preguntan las palabras contestadas 
equivocadamente hasta que cada vocablo haya sido contestado 
debidamente por lo menos una vez. 

Naturalmente, también es posible terminar, antes de tiempo, 
el trabajo de aprendizaje. En todo caso, después de terminar 
el tiempo de aprender, se edita la cantidad de aciertos. 

Para el trabajo de aprendizaje es razonable guardar 
separadamente las diferentes lecciones. Luego puede usted 
reunirías a voluntad por medio de la función complementarla. 
En total se ha reservado espacio en el programa para 1000 
vocablos. 
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Si se trabaja con diskette, es necesaria una modificación 
insignificante del programa: 

565 INPUT ''cómo se llama la lección'';n$ 

570 OPENIN n$ 


La entrada de los vocablos se realiza de manera que primero 
se teclea la palabra alemana, luego una coma y a 
continuación la palabra extranjera, es decir, por ejemplo 

?er,he(ENTER) 


Hay que tener presente que los complementos solamente pueden 
realizarse con la función complementarla. Una entrada o una 
lectura repetida tiene como consecuencia que quedan 
sobreescrltos vocablos que ya se encuentran en el programa. 
Por lo demás, el programa es sumamente claro. 

Lo mejor es que lo pruebe usted mismo alguna vez 


Programa: 


10 REM I25 
E0 CLS 

30 PRINT TAEC7)"125 Programa de vacadies 
40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
50 PRINT TABC9) "Sernd teal, 1995" 

60 GOSUE SEBO 

70 Din dSCiOOOI', fSclOOOl .ujCIOQOj , qciOOO:' 
80 kl-l:h-15 
90 REt! 

100 REtl Menú 
110 REtl 

ISO PRINT TABC17>"MenúPRINT:PE INI 
130 PRINT TABC33!' "EntradaPRINT 
140 PRINT"Uocablcs”:PRINT 
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150 PF NT " Entrar’ . TftH',35 • ’ ” • DB "IT 
160 PRINT” Leer",TñEC36 j "3 ” PRINT 
170 PRINT Corregir ;TftE>36'"3"■PPINT 
1B0 PRINT" Anyadir": T fiE‘35■ 4" PRINT 
190 PRINT" Aprender ’,TftEC36;"S":PRTNT 
300 PRINT" Grabar ';TflBt,36 ”6 • DD ’NT 

310 PRINT" Term.rar el trabaja" ¡ TAB-*36 "" : PRINT : PRINT : PP ' NT 

330 INPUT"Su elección " ; a ■ ""LS 

330 II a< 1 OR a>" THEN C~S■GOTO *30 

340 ON a GOTO 370,540,670,360,1390,1680, 1980 

350 REM 

360 REM anyadir vocablos 
370 REM 

380 PRINT”Hay que leer” 

390 INPUT’’mas vocablos Is/n' 1 "; a$ 

300 IF aS= "s” THEN e=ki+I:GOTO 5^0 
310 IF aS<>”n” THEN 380 
330 PRINT:PRINT 

330 PRINT”Ahora puede usted anyadir" 

340 PRINT"mas vocablos . ”:GOSUB 3380 
350 kl-kl+1:h-kl 15 
360 REM 

370 REM entrar vocablos 
380 REM 

390 PRINT"La palabra castellana y la ext ranjera" 

400 PRINT”han de separarse por medio de coma." 

410 PRINT"Entre usted *,* si ya" 

430 PRINT”ha terminado de entrar les voclabiosPRINT 
430 PRINT"Palabra castellana, palabra e: tranjera":PRINT 
440 FOR í-kl TO 1000 
450 INPUT dSCil ,fSCi) 

460 IF d$(i)<>”*” THEN 500 

470 kl”i~l :PRINT:PRINT"Ahora se encuentr :an" ; kl 
480 PRINT”vocablos en la memoria de traboajo." 

490 GOSUB 3380:GOTO 130 

500 IF i-h THEN kl=h+l:h=h+15:GOSUB 33B03:G0T0 390 
510 NEXT i 
530 GOSUB 3380 
530 REM 

540 REM leer vocablos 

550 INPUT”Entrar nombre de fichero";fp$ 

580 e-1 

570 OPENIN fpS 

580 FOR í-e TO 1000 

590 INPUT #9,d$Ci3:INPUT #9,FSCi) 

600 IF E0F--1 THEN kl-i:G0T0 630 
610 NEXT i 
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6ao closein 

63C PRTNT : PEÍ': NT "Ahora se encuentran 11 ■ kl ; 

640 PEINT”vccaabics en ia mercería de trabajo.” 

650 GOSUB 55800:30X0 150 
660 REI”! 

670 RE” ccrreegir vocablos 
690 REH 

690 PRTNT"Pueede usted denominar la palabra” 

700 PR?NT”equvivetada, e prefiere ver primero” 

710 PRINT"tüddcs les vocablos ?":PRINT 
7^0 PRTNT TPE 1 .50 i "Entrada PRI NT 
730 PRTWT7Cersr.cmir.ar " ; TflE 1 53 5 "i": PRTNT 
740' PPfNT'TUí; ar ’ ¡ TAB-:53.: ”5” 

750 PRTNT: INPPl_¡T"Su elección " ¡ a : CLS 
760 IF a-5 TKKEN 950 
770 IF a<» i TE'HEN 690 
7B0 PRTNT”Ehttre usted" 

790 INPUT V la :¡. palabra equivocada " ; fwS 

800 INPUT”Y ccono se dice correctamente ”;rw$ 

810 FOR 1-1 XC'G 1:1 

850 IF dSlii-ffuS THEM d$r i ; -ruis : GOTO 870 
B30 IF f Si TKEfJ fSi i .>-ruiS: SOTO B70 

B40 NEXT i 

950 PRINT:RETÍ NT "No existe la palabra indicada” 

B60 GOTO B80 

870 PRINT': PRT' - M 'Se ha- hecho la corrección . ' 

990 PRINT: !N°! v , e lguna otra corrección Cs/nj ”,aS 

090 IF aS*"n” THEM CLS:GOTO 150 

900 IF a$<>"s THEM BBO 

B10 CLS:GOTO 1 390 

950 WJNDOW «i 50,40,1,55 

930 k£-i:K3“i i 

940 IF );£<«■/•;! THEM 1040 

950 FOR i“l .TV i 

960 IF- dSi i .. THEM 1050 

970 kí-ki-l 

9B0 r 0R ; J-i TIO kl 


990 dSijl-dSt. 

J 7- l 

1000 

f$Cj.'=fS 

J * i ) 

1010 

NEXT J 


1050 

NEXT i 


1030 

CLS:GOTO 

; ;ur*. 

1040 

FOR 1-1:5- 

TI; 1:3 

1050 

IF i > k i 

■ Ur'-> 1 030 

1060 

PRTNT #1 

. ; ’ . " ;CÍ5 

1070 

PRINT 71 

6 • f S• 

1090 

NEXT i 
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1050 

FRINI"Donde esta" 


1100 

PRINT'el error ?" 


1110 

PRINT"Entre usted 

, un 0’ 

1130 

PRINT'si tede es 

” 

1130 

PRINT’ccrrecto. " 


1140 

PRINT"La entrada 

de” 

1150 

PRINT"un espacia 

para" 


1150 PRINT"la palabra” 
1170 PRINT"castaIIana" 


11B0 PRINT'bcrra el numero" 

1130 PRINI"correspondiente" 

1300 PR I NT ”-" :PRINT 

1310 INPüT"Numere ";b 
1330 IF b=C TKEN 1370 
1330 PRI NT:PRINI"Es incorrecta" 

1340 PRINT"ia palabra cast.” 

1350 INPüT”is/n; " ; aS 
1350 IF aS-’n" TKEN 1300 
1370 IF aSO"s" TKEN 1330 
1380 FRINT"Como se dice” 

1330 INPüT "correctamente "¡dSib.' 

1300 PRINT:PRINT"Es incorrecta” : PRINT"la palabra” 

1310 INPüT"extranjera is/nl ";as 

1330 ¡F aS=”n” THEN 1350 

1330 IF aS< >”s" THEN 1300 

1350 PRINT 'Como se dice” 

1350 INPÜT"correctamente "¡FSCbl 
1350 CLS:CL5 #1:GGTG 1050 

1370 CLS:CLS #1:k3-k3+l:k3-k3+10:GOTO 350 
1330 REH 

1330 RETI aprender vocablos 
1500 RETI 

1510 1-0:rr-0:ff-0 

1530 FOR l-l TO kl: qCi1-0:wC í)-0:NEXT 1 
1430 PRINT kl;"vocablos entran en el ejercicio." 
1440 PRINT:PRINT”Entre usted un * para el vocablo” 
1450 PRINT”cuando quiera usted terminar el” 

1450 PRINT”trabaJo de aprendizajePRINT 
L470 PRINT:PRINT”Como han de ser preguntados” 

14B0 PRINT"lcs vocablos ?” 

L430 PRINT:PRINT TABC33)"EntradaPRINT 
1500 PRINT"Castellano-extranjero”;TABC36)”1” 

1510 PRINT 

1530 PRINT”Extranjero-castellano”¡TABC36)"3” 

1530 PRINT:INPUT”Su elección ”¡c 
1540 IF c<l GR 03 THEN 1470 ELSE CLS 
1550 y-INTCRND*kl + U 
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\¥% 

1500 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1600 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1700 

1790 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1000 

1090 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1900 

1990 

2000 

2010 

2020 


[F uiCyl-1 
30SUB 2110 


THEN 1550 


l-l+liqCyl-l 

IF l<kl THEN 1550 

FOR í-l TO kl 

IF qCi)“1 THEN 1630 

y-i:GOSUB 2110:1-1*1 

NEXT i 

hi-0 

FÜR 1-1 TO kl 
IF uiCi)-l THEN 1690 
y-i:GOSUB 2110:1-1+1 
IF uiCy 1-0 THEN hi-1 
NEXT i 

IF hi-1 THEN 1640 

PRINT”Ya han sido contestados todos los” 
PRINT"vocablos,al menos una vez correctamente":PRINT 
PRINT:PRINT”En la consulta de un total de";l; 
PRINT”Uocablos, ”¡rr¡"contestaciones" 

PRINT”han sido correctas y”¡Ff;"erróneas . PRINT:PRINT 
PRINT”Expresado en porcentajes :": PRINT 
PRINT; USING rr-100/1; 

PRINT'^í de las respuestas son correctas" 

PRINT"y" 

PRINT; USING ”###.##";ff*100/1; 

PRINT”-í de las respuestas son erróneas” 

PRINT:PRINT: IF ff<-rr THEN 1040 
PRINT”Tiene pues que practicar un poco mas." 

IF ff*10>rr THEN 1060 


PRINT”Un buen rendimiento. 


GOSUB 2200:GOTO 120 
REH 


REn grabar vocablos 
REH 

PRINT”Como se ha de llamar la lección" 
INPUT"a grabar ”¡n$:PRINT 
OPENOUT n$ 

FOR í-l TO kl 

PRINT #9 , dSC i 1 : PRINT #9,fSCi:' 

NEXT i: CLOSEOUT 
CLS:GOTO 120 
REn 


REn terminar el programa 
REn 

PRINT”Ha grabado usted adecuadamente” 
PRINT”todos los vocablos ?” 

PRINT"En caso negativo, entre simplemente" 
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2030 PRINT”un ’Dh 1 CdB Id cDntrariD, basSta corl” 
2040 PRINT”pulsar la tecla espadadora) j” 

2050 INPUT aS 

2060 IF a$="oh” THEN CLS:G0T0 1300 

2070 PRINT:PRINT:PRINT” Hasta la vvista" 

2080 PRINT:PRINT”8hora puede usted descoonectarme" 
2030 END 
2100 REH 

2110 REN UP subprograma preguntar 

2120 REN 

2130 LOCATE 8,4 

2140 IF c=2 THEN 2170 

2150 PRINT dSCyl;" INPUT pS 

2160 IF pS-fSíyí THEN 2130 ELSE 2210 

2170 PRINT fSCyl';” INPUT pS 

2180 ¡F pSOdííy) THEN 2210 

2130 PRINT:PRINT:PRINT TABCS)"Correcto" 1 

2200 rr'rr*l : wiy J = 1: GOTO 2260 

2210 PRINT:IF p$-"*" THEN CL5:G0T0 17300 

2220 PRINT: PRINT TAECSj "Erróneo’': Ff-f f d dulyüHO 

2230 PRINT: PRINT: PRINT TABi.9) "Ccrrectameent8sse..díce 

2240 PRINT: IF c-1 THEN PRINT TAECSlf SCy }) 

2250 IF C“2 THEN PRINT TAEC 3 >dS í.y ) 

2250 G05UE 22B0.RETURN 
22I 7 0 REN 

2280 REH UP subprcgrama esperar 
2230 REH 

2300 LOCATE 7,25 

2310 PPINT"Pulse una tecla !” 

2320 xS-INKEYS 

2330 IF xS-”" THEN 2320 

2340 CL5:RETURN 
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.. IL11 * a o de v siair J b M e s: 


aa =C6o(i*e¿tacií6n ' 'isédectdóndderaffleófi'' 
aS$==C 6 adeaaddeccodíeii 0 cd 6 n( dirtói) 

bb =VSairllalbéea0MK 11 iareet íriddeetiipait-deddeppcpgBBaá'dcoreec- 
ccéoeeiM ) 

cc =C,Condesdecdón 1 'isééecidónddemaefifi' 'een I áappatéeddeppoo- 
(jigBBoa' ’áppceddei 1 '' 

ddt(I )==l J Pé<iabBaaMBaana 

ee “VXédoriilíuJcifcl ddélbbatde( (map<yorqqee1 1 sfclssereeiliaan 
copibdetaendoi) 

f f tU )==PBkáhbBae»*rtBBO^eBa 
f f 1 ==N8úraecoddeccot*etiacdooeseer66eeas 

fvf4$=«PPkéhbBa eqqlil®oeéda( (ppB^'<deddeppo 9 lgBBaa , 'icoreeccd’O- 
n«eS' 1 ) 

hh-“V SairiaWeaBuxl láarqqeei ddtideasfcl I dappBtitél áaeetíál léeaa 

1 1 h I -VMairíPMeaaukl láar( (¡dgudlaal 1 sfclt<ddd8í , íaf áfedíanccon- 
! éetiaMoeescooreetiai) 

i I =« I ií d diceddeccoindob I 

j j =«■ I ildddeeddecooíiftcb I 

kk 1 =“N8Éoeoodelev®OBlab<teseBn I áamoBCToHadde+ttBlBbpgo 
kR2=“= I dMtdoddé Ibbafcée 
k83=*flTÍBfclddélbbatée 
11==N8fiaeoo+cW>idfc I ddeccotdetiafcdoees 


2299 



nS = Nombre de la lección a almacenar 


p$ = Entrada en el subprograma 1 'preguntas'' 

q(I) = Variable auxiliar (Igual a 0 si un vocablo aun no ha 
sido preguntado, de lo contrario. Igual a 1) 

r = Número de contestaciones correctas 

rw$ = Palabra correcta ( parte de programa "correcciones" ) 

w(I) = Variable auxiliar (Igual a 0 si un vocablo aun no ha 
sido contestado correctamente, de lo contrario. 
Igual a 1) 

y = Indice del vocablo que está siendo preguntado 


Descripción del programa: 

Líneas 10 - 60 : Título 

Línea 70 : Reserva de espacio de memoria 

Línea 80 : Se ocupan variables con valores de partida 

Líneas 90 - 240 : Selección de menú y ramificaciones de 
programa 

Líneas 250 -350 : Parte de programa ''completar vocablos'' 
Existe la posibilidad de leer palabras a- 
dlclonales (ramificación de programa y o- 
cupaclón de la variable e), o bien de en¬ 
trarlas ( modificación de la variables kl 
y h ). 
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Líneas 360 -520 : Parte de programa ' 1 entrar vocablos" 

Se pueden entrar hasta 1000 vocablos.Des¬ 
pués de cada entrada de 15 vocablos tiene 
lugar lugar un salto al subprograma "es¬ 
perar ' 1 . 

Líneas 530 -650 : Parte de programa "leer palabras" 

SI se leen vocablos para completar, en¬ 

tonces e es Igual a kl+1. 

Líneas 660-1370 : Parte de programa "corregir vocablos" 
690 - 770 : Selección de menú 

780 - 910 : Corrección entrando la pala¬ 

bra escrita de forma Incoi— 
recta y correctamente. La 
comparación de la entrada 
"palabra Incorrecta" con to¬ 
das las palabras almacenadas 
Internamente tiene lugar en 
el bucle de programa en las 
líneas 810-840. 
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9200+3300: :MífrfaBryyconreglir osborraer lossvooablós. 

Llaaedltlóóiide lóss vooabitéss( Ifáeaas1040-1080 ) 
ttéBee I úggrr-ennunaaveotanaadéoteK+Oodef Ib i da se- 
paBadameo’té3(veaalíneaa920!jJ. Cóoneél f In, de evl- 
taerqqeeláa ventana addeedá¡4i66n "Seeeecape" edit- 
seeIrtdt¿aBnsiéfflppeese44meBtée10Oppiabbass(vea el: 
vaáODr I tililal! yyí f ñai I déllbbclée eenlíñea 1040 
(ppittieeaaooapaeióóneon I ífieaa93D<>)yysBunueva ocun 
paoióóneBn I 4a I íhea¡r 13700. 

Ldas I ítfieass 1Q9Q0+36OOsi+weonpia0aa 14a I instrucción 
ddliusnaetóc yyppnaal4a correecíóén de palabras. 
S644men*éecuanddc las paiábnasseddtadds son coi— 
rectaas (éntrada i0), se edltanr.méásvocablos para 
verltas(«eaaITñea j 1370)¿.DéelOoconttanlo, se re- 
pité<'IaamliSma edición ( natunalitientev, con posi¬ 
bles-correcciones, vea I Tftea, 13600 ) i. 

EBnI4ssIííeass99001020, 1 a lasscualéss solamente 
seoIlégpacaandochan sidd edltaddsstódas las pa- 
lábbas 1 . (vea línea 940), se compruebbasf. hay que 
bbcrarrpp,libras (entonces, d$(H* """7¿ S! éste 
essellcaso, se modifican adecuadamente los Tndl- 
cessde los vocablos siguientes ( vea el bucle de 
ppogramaien líneas 980-1010 ). 

EB.'ilá líiíea 1030 se termina esta parte de pro¬ 
grama por- medio de un salto de regreso a la se¬ 
lección de menú. 



Líneas 1380-1860 : Parte de programa ''aprender vocablos" 
1410-1420:::Séccubren variables conva- 
léres de partida 

1430*1540'::Aéibree Iones y selécclófir de 
meo fiíi 

1550rt59QC::ES!nfiáeroo aIéatoní6o('entre 
11 yvkH) > generadoreer. I éa ITnea 
155Q0s§rve kl veees'.ppBB la 
determinación defídfces pa¬ 
ra la consulta dee vocablos 
(í subprograma lílüeasr 2100- 
2260)..En el caso de que' ya 
se haya realizado una:con¬ 
sulta correspondiente* se 
tóma ~ (Vea : i I ínea 1560) el si¬ 
guiente número aleatorio. 
1600-1630^: Se determinan ; los índices de 
los vocablos que todavía no 
hayan sido consultados 
1640-1700 ::Mientras se sigan contestan¬ 
do Incorrectamente preguntas 
de vocablos ( vea magnitud 
auxiliar hl), lós correspon¬ 
dientes índices sifven de 
magnitudes: de: partida para 
el subprogeama "Consultar" 
1710—1860 : Se editan lós resultados del 
trabajo de aprendizaje 

Líneas 1870-1960 : Parte de programa ’ 'almacenar vocablos" 
Todos los vocablos que-se encuentran en 
la memoria de trabajo son almacenados 
(como en los.programas precedentes, tam¬ 
bién aquí es posible la aplicación de una 
>i . ' .-c de disco) 

Parte de programa "terminar el progra¬ 
ma". 

Aquí existe todavía la posibilidad de al¬ 
macenar vocablos, ya:que esto - después 
ue realizado el trabajo de aprendizaje - 
se olvida con frecuencia 
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Líneas 2100-2260 : Subprograma "consultar" 

Después de haber sido determinado el ín¬ 
dice y en la parte de programa "aprender 
vocablos", se pide aquí una entrada coi— 
respondiente. Se registran las contesta¬ 
ciones correctas y las Incorrectas. 

Líneas 2270-2340 : Subprograma "esperar" 
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9.6. Filón de Ideas 


- Problemas matemáticos de todo tipo 

- Ecuaciones de reacción y cálculos estoqulamétrlcos 

- Leyes físicas 

- Imágenes ópticas 

- Diccionarios programados 

- Banco de datos literarios 

- Analizar poesías (vea también capítulo 8.5) 

- Almacenar acontecimientos históricos y consultarlos 

- Representación de procesos biológicos de crecimiento 

- Música y notas 

- Y muchas otras cosas 
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10. JUGAR«CON EL CPC 


10.1. Advertencia preliminar 


Hay personas qque sólamente tienen el ordenador pana yugar. 
Para este circuito de personas, el presente 1 libro es i ideé I, 
ya que en óél se ¡representan algunas ¡aplicaciones 
Ingen¡osad 1 ' ((¡aunque, ''naturalmente, cada uno t tienes su 
propia filosofía sobre ! 1 a «péiabrlta '' Mngenlosi* i J.' Sin 
embargo, étgfin qque Otro . juegueclto puede ser 'mgy 
Interesante, .ebbre i todo, sI uno mismo ha escrito «él 
correspondiente «programa y, ¡por ¡o i tanto, puede! ¡Insertar, 
sin problemas, vearrtaciones adicionales en¡ el deaarrOlioidél 
juego. -La ilástima es qque eél ordenador sea '¡degeadddoaél 
ot?jéto «dél ¡juego y que'suscdeáásí facultades se quddenssrtn 
utilizar. Pero, naatur ¿límente, eetto, een ¡.¡fi Itiraol iggar, lio 
¡tiene «que f idee (dtruanoimi amo. 


2®R7 





Los elementos básicos de la programación de juegos 
consisten, como se sabe, en la representación de procesos de 
movimiento y la simulación de "pasos de pensamiento". De 
todas maneras, el CPC ofrece todavía muchas más 
posibilidades para la programación de juegos de ordenador. 
Para ello, quizás sería conveniente que se mirara usted todo 
el juego de caracteres de su CPC con la función CHRÍ(I), 
para 1=32 hasta 1=255. En el fondo, no obstante, es lo mismo 
que "corra" por la pantalla un hombrecito o bien un punto 
o pelota. Así pues, en el último capítulo queda usted 
Invitado a modificar los programas de que se disponga y a 
ampliarlos, o bien, simplemente a realizar las Ideas que se 
le ocurran. Y si todas las cuerdas se rompen ... grande es 
el mercado de software. 


10.2. Juego de tenis en la pantalla, ampliado 


Hace unos 10 años los Juegos de televisión estaban muy de 
moda. Entre otros, se podía, y se puede, juegar a tenis. Con 
medios bien sencillos se puede programar este juego. 

En el desarrollo del programa se calculan, fundamentalmente, 
las coordenadas de un punto, se dibuja el punto y se borra 
el punto precedente. Así se crea el efecto de movimiento. SI 
el punto alcanza el límite derecho de la pantalla, el mismo 
es devuelto si la línea o "raqueta" a mover por el jugador 
se encuentra con el punto o "pelota". De lo contrario, se 
pone una nueva "pelota" en juego. 
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La ''raqueta" es movida por medio de las teclas de control 
del cursor. Los aciertos y los fallos son sumados e 
Indicados. La velocidad de la "pelota 1 ' y de la 
"raqueta", así como la longitud de la "raqueta" pueden 
ser elegidos libremente por el jugador, es decir, él mismo 
puede determinar el grado de dificultad. Además también 
puede determinar si la velocidad de la pelota debe variar. 
Con la ayuda de pequeñas modificaciones del programa, 
también se pueden utilizar joysticks para el control de la 
"raqueta". SI dispusiera usted de dos joysticks, podría 
poner en juego una segunda "raqueta". Entonces, no 
obstante, también tendría que modificar las reglas del juego 
o la Indicación de los aciertos. Como usted ve, hay muchas 
posibilidades de modificar un programa como éste, para 
evitar el aburrimiento. Le deseamos que se divierta mucho. 


Programa: 


10 RETI 126 
20 CLS 

30 PRINT ”126 - Juega de pelota" 

40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
50 PRINT TflB13:> "Eernd Kouai, 1985" 

60 GOSUE 570 

70 PRINT"Entrada de parámetros PRINT:PRINT 
00 PRINT"Uelocidad de la pelota" 

90 INPUT"Cvalor entre 10 y 301 ";bg 

100 IF bg<10 GR bg>30 TREN 90 
110 PRINT:PRINT"Ha de oscilar esta velocidad” 
120 PRINT"durante el” 

130 INPUT"Juego Cs/ni ”¡aS 

140 IF aS=”n” THEN z=0:GCT0 170 
150 IF aS=”s" THEN z-bg/2:bg-bg-3/4:GGTQ 170 
160 GOTO 110 

170 PRINT:PRINT”Longitud de la raqueta” 
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ISO INPUI"C valor Bntre 10 y 1003 ”;sl 

130 IF sl<10 OR si>100 THEM 180 
200 PRINT: PRINT”Uelocidad de la raqueta-’ 

210 INPUT"tvaior entre 5 y 503 "■sg 

220 IF sg< 5 OR sg>50 THEN 210 

230 PRINT:PRI NT:PRI NT"El partido se acabo si so pulsa" 

240 PRINT "2 veces la tecla E.BC»" 

250 GOSUB 570 
2B0 KEY DEF 0,1,111 
270 KEY DEF 2,1,117 
200 5PEED KEY 1,11 

230 PLOT 620,0,1: DBfttó 0;0,1: DRftW .0,339,• 1: DRRUI 220,300,1 
300 a-I NT f 200-sl■2’: b“ I NT C 200 ■*' s 1 / 2 3 
310 PLOT G20, a . 1 l DRAti) 620Qbl.il 
320 GU3UB 510 
330 n::>2: ny-200: GOTO 430 
340 a:<»n:. : ay = ny 
350 nx”nx + xv: ny*r.y+yv 
360 IF ny>337 THEN ny-337:yv--yv 
370 IF ny<2 THEN ny-2:yv--yv 

300 IF n:;<2 THEN n?:”2: xv“-xv 

330 ON BRERK GOSUB 630 
400 sS-INKEYS 

410 IF sS”"o" THEN , PLOT 620, a, O: a-a+sg : DR 0 UI 620, a , O: b-b "sg : DPAtil 62 

420 IF sl-”u" THEN PLOT 620, b, O: b'b-sg : DPAlü 620,b,O:a-a-sg:DPAU 62 

430 IF SRN' :-:v >~-l THEN 400 
440 IF n:;<B20 THEN 400 
450 nx”620 : ny =ay +yv <:620-a;< J 

460 IF ny > - a OND ny<-b THEN PRINT CHRSL 73 : t-t* 1 : GOSUB 510::'.'»- :UÜIG 

470 d-d+l:G05UB 510:PL0T a::,ay,O:GOTO 330 

430 PLOT a::, ay. O 

430 PLOT n::, ny , 1 

500 GOTO 340 

510 LOCOTE 2,2:PPINT"tanto " ; t 
520 LOCOTE 2,3:PRI NT Fal1□ ”,d 
530 .sv-ROUNDC RNO *z+bg 
540 yv-ROUNDlRND*P0-103 
550 IF yv<5 OND yv>-5 THEN 540 
5B0 RETURN 

5/0 REN subprograma esperar 

500 LOCATE 5,25 

590 PRINT”Pulse una tecla !" 

BOO >:$=■ INKEYS 

610 IF :;$="" THEN 600 

620 CLS:RETURN 

630 SPEED KEY 10,4:END 
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List? de variables: 


a = Límite interior de la coordenada y para la raqueta 

a$ = Cadena de contestación (s/n) 

ax = Coordenada x anterior de la pelota 

ay - Coordenada y anterior de la pelota 

b - Límite superior- de la coordenada y para la raqueta 

bg = Velocidad de la pelota 

d Número de fallos 

n ~ Nueva coordenada x de la pelota 

ny - Nueva coordenada y de la pelota 

s$ - Valor de la tecla pulsada para el control de la raqueta 
sg = Velocidad de la raqueta 
si = Longitud de la raqueta 
t = Número de aciertos 

xv - Velocidad de movimiento de la pelota en dirección x 

y ; Velocidad de movimiento de la pelota en dirección y 

z = Variable auxiliar ( Igual a bg/2, si la velocidad de la 
pelota ha de variar, de lo contrario. Igual a 0) 
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Descripción del programa: 


Líneas 10- 60 : Título 

Líneas 70-250 : Entrada de los parámetros y edición de una 
aclaración sobre la utilización del pro¬ 
grama. Las limitaciones de magnitudes para 
los valores pedidos son seleccionados aquí 
exclusivamente según el criterio de un de¬ 
sarrollo "razonable" del Juego. Los cálcu¬ 
los de la línea 150 sirven para la detei— 
mtnaclón de la velocidad de movimiento que 
pueda estar variando en la línea 530. 


Líneas 260-270: A las teclas de control del cursor se les 
asigna valores. Pulsando la tecla “- se 
obtiene una ''o 11 y si se pulsa la tecla, 
una "u". 

Línea 280 : Para aumentar la movilidad de la raqueta, se 
dan nuevos valores relativos a la veloci¬ 
dad de repetición de una tecla permanente¬ 
mente pulsada. 

Línea 290 : Se dibuja el borde del campo de juego. 

Línea 300 : Se calculan las coordenadas de limitación ( di¬ 
rección y ) para la raqueta. 


Línea 310 : Salto al subprograma (línea 510) para la detei— 
mi nación de la velocidad de movimiento de 
la pelota. 


Línea 330 : Se fijan las coordenadas de partida de la pelo¬ 
ta y se dibuja ésta directamente ( salto a 
la línea 490). 
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LTneas 340-350: Se determina la nueva posición de la pelo¬ 
ta ( posición anterior + velocidad de movi¬ 
miento ) después de haber guardado la posi¬ 
ción anterior en los campos ax y ay. 

Líneas 360-380: SI en la modificación de la posición se al¬ 
canza o sobrepasa el borde superior, el In¬ 
ferior o el Izquierdo del campo de juego,se 
toma, como coordenada máxima, un valor Jus¬ 
tamente Inmediato al borde y se Invierte la 
dirección del movimiento (yv=-yv o xv=-xv). 

Línea 390 : Después de pulsar dos veces la tecla ESC, se 
hace una ramificación al subprograma ( lí¬ 
nea 630 ) para la terminación del juego y 
del programa. 

Líneas 400-420: Se edita el valor de la tecla pulsada. La 
pulsación de la tecla ~- hace que, en fun¬ 
ción de la velocidad Indicada para la ra¬ 
queta, sg, se dibuje una línea "sin color" 
desde la posición inferior de la raqueta a 
la nueva posición (a=a+sg) Inferior de la 
misma y, desde esta posición, una línea a 
la nueva posición ( b=b+sg ) superior de la 
raqueta. SI se pulsa la tecla se procede 
de acuerdo con ella. 

Línea 430 : SI se mueve el punto de derecha a Izquierda (es 
decir, la pelota es devuelta ), el punto 
puede ser dibujado directamente (salto a la 
línea 480). 

Líneas 440-470: Se comprueba si la pelota es golpeada con 
la raqueta. Esta pregunta no se plantea si 
todavía no se ha alcanzado el límite dere¬ 
cho de la pantalla ( línea 440 ). SI dicho 
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límite ha sido alcanzado, en la línea 450 
las coordenadas nx y ny son determinadas de 
forma que las mismas estén en la línea de 
la raqueta con la coordenada x 620 ( véase 
además el croquis a continuación de esta 
descripción). Entonces, si la coordenada ny 
se encuentra dentro del Intervalo con los 
límltessa y b, se ha conseguido un acierto 
(un punto>(■' 'sonido de plp'',t=t+1). Luego, 
en efcisubprograma (línea 510) se determinan 
nuevas velocidades de movimiento y se de¬ 
vuelve la pelota ( xv=-xv ). Si ny no está 
dentroo del Intervalo, sino al lado, con 
nuevas velocidades de movimiento se pone en 
juego (a partir de la línea 330) una nueva 
pelota después de haber dibujado un punto 
incoloro en la posición anterior. 

Línea 480 : Se borra el punto anterior. 

Línea 490i': Se dibuja el nuevo punto. 

Línea 500 : Salto de regreso a la línea 340 para proseguir 
el juego. 

Líneas 510-560: Subprograma para la edición de la proporción 
de éxito .y para la determinación de las ve¬ 
locidades de movimiento de la pelota. En el 
caso de que se desee (líneas 110-150), en la 
línea 530 los valores para xv pueden estar 
el 25? por encima o por debajo de la veloci¬ 
dad indicada para la pelota. Para yv los va¬ 
lores son determinados de forma aleatoria y 
los mismos se encuentran entre -10 y -5 o 
bien entre 5 y 10. 

Líneas 570-620: Subprograma ''esperar" 

Línea 630 • La velocidad de repetición de una tecla perma¬ 
nentemente pulsada es "normalizada" y se ha 
llegado al final del programa. 
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Croquis para la determinación de la coordenada ny en la 
I filea 45G: 



a-determinar: yk' 

yv yk 

tang. f «=-— y tang. € -- 

xv 620-ax 

por lo tanto: 

yv yk 

xv 620-ax 

yv 

yk --, (620-ax) 


para ny resulta: 

ny - ay + yk = ay + yv / xv* (20 - ax) 
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10.3. El cuatro gana 


¿ Qué hace usted, si quiere jugar a un juego para dos 
personas ?. La contestación es fSctl: buscarse un compañero 
de juego. Pero, ¿ qué hace, si nadie quiere Jugar con 
usted ?. Esta pregunta solamente es fácil de contestar para 
el poseedor de un ordenador: carga usted el correspondiente 
programa y substituye al compañero de juego por su 
ordenador. 

Pero, ¿ cómo se consigue que un ordenador 1 ’ref lexlone" 
como lo haría un verdadero compañero de juego ?. Primero, 
tiene que familiarizarlo usted con el campo de juego y las 
reglas del juego. En el juego " El cuatro gana 'el campo 
de juego se compone de una retícula de 8x6 campos. El 
objetivo del juego es colocar cuatro fichas en una hilera 
(lo mismo da que sea en sentido horizontal, vertical o en 
diagonal). Aquí, naturalmente, sus fichas son diferentes de 
las de su contrincante. 

Para un grado medio de Juego, es suficiente hacer que su 
ordenador realice las siguientes reflexiones: 

1) i Puedo yo ( el ordenador ) decidir, con una jugada, el 
juego a mi favor ? 

2) ¿ Puedo yo (el ordenador) evitar, con la siguiente juga- 
gada, que mi contrincante gane la partida ? 
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Además, existe la posibilidad de Incorporar, en el 
desarrollo del programa, variantes tácticas de juego. En el 
juego de ''El cuatro gana 1 ', una táctica - que también 
conduce a ganar la partida - consiste en colocar en una 
hilera, a ser posible, tres fichas que no estén delimitadas 
por piezas contrarias. En este caso, se tendrían que 
Incorporar Instrucciones adicionales, empezando con 

IF h=2 AND ... THEN ... 

Sin embargo, en el siguiente programa nos limitamos a los 
dos primeros pasos de reflexión. Aquí, pues, un fallo no 
conduce a echar mano de la caja táctica de trucos, sino que 
entra en acción el generador aleatorio. Por lo tanto, no se 
tienen en cuenta las repercusIones de la jugada que se haga 
a continuación de la siguiente. 

Todavía una palabra sobre la técnica de programación: 

En el programa el ordenador reflexiona cubriendo superftcle, 
es decir, analizando muchos campos que todavía no tienen 
ninguna Importancia para el juego. Otra técnica de 
programación, que en la fase Inicial del juego también 
tendría como consecuencia unos tiempos de cálculo más 
cortos, podría consistir en limitar el trabajo de pensar a 
los campos ocupados. Aquí, las diferentes Instrucciones IF 
... THEN quedarían, en principio. Igual. 

Por lo demás, solamente nos queda desearle mucho éxito en la 
confrontación hombre - máquina. Tenga usted presente que 
tres fichas en una hilera, en ningún caso se le pasan por 
alto a su ordenador. 
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Programa: 


10 PEI i 127 
20 CLS 

30 PBCTJT TfiB'.31U27 - Cuatro :en raga " 

40 print:ppiijt : ppirmppi.fai pprint• ppi.tm 
SO PBltJT .TABt 1/0) .'’BerddKKouai, . 1385" 

60 G0SU5 1180 

70 PE1NT "Reglas'-'dél jyiBggo : ”PPRtrjrEPR'WJT 
BO PB1NT "El objetioocdél jgaego reo lograr: tilnaar ’’ 

80 PPI NT "cuatro EiChaoeen rgya ciguai da que cea ' 

100 PRINT"en horrzonta1,aertica 1, o 'dragona 1" 

110 PRlf.T -, El cnmpo'irlo i jmngn'-m una retícula" 

120 PR1.MI ddet tP*6 - coinpoul bao 1 1 1 tus colnni etluo " 

130 PR'INTddei 11 aula . r ¡Siqquíece pt.ej . ' ti car una" 

140 PR1 NTPEicha ia : iaccuattio: E i i o „t lene que: entrar" 

150 PBlIJTi'un 4. La. ficha ua .cayendo hasta quu 1 
160'PR1 NT''aa :a darcconcetna! f ícha , o con la" 

170i PRTNT "¿a. f ilacidsaabd’ío !de . ttídu . ” 

180 PRINT : PRUfilT 

180 PR I 1 NT "Bseasoeon-imssf ff ichas : "¡CHES': 143. ,'JHP-E i í’> 

200: PR1. !JT ! fflBf 27 J CDHESÍ143 >; CHES': 143 •jCHBSi 143 t PPIIJT 
210 PR HIT "y :estas ¡son ’ ias‘ suyas : '" ; CHRS',20 ’ •; CHES: 20 ' 
220 PR I NT ’ 1OBC 27 y CHRSE BC7 ¡ CHRS t'B07tCHPS20 7 • PP HIT 
230 PRIN T í INPUTOQui’eceuusCddi empezar '3 n' " ; SS 
840 IF »$o dn“uniJOaaSí > fiS " ! SHBÍJ. '230 
'250 CLS5F0R'i-1 NEO 7PRRTIIDT" " ; 

260 1 F .cr7 ; IHBriPPETMITTDHES5 14"’ í ; : G0T0-8B0 
220 PRIlMTCEHRíC 151 ; 

2B0 FOR ; J*1T 10331 PPBllírceHRSÍ 1S4 ; : HEXT J 
880 1F: i»7 r THEM PRTNTCGHE5 C153 GOTO 310 
300 PR1NT CHRSC1S7) 

’310 PRTMT:'PRINT': HEXT . 1 
320 Ji3 

330 FOR 1-2'TO 13 STEP33 
340 LOCATE J , i : PRTfJT CHES C 143 ) 

1350 LOCATE , j , t 4 1 FPE IiN H CHBH' 143 • 

360 NEXT 1 

3370 IF :j“3 r IHEN 1 JP353GOTO : 330 
•3B0 FOR 3-71T0331SSIEP44 
380 FOR 1-1 TD 16 SEEP 13 
'400 LOCATE J , i : PR1TUTCCHESC 1581 


CHPS ■ 143 ) 

. . . 30 - . 
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410 LOCATE J,1+1:PRINT CHRSC149) 

420 LOCATE J,1^2:PRINT CHRSC149) 

430 NEXT i:LOCATE J,i:PRINT CHRSC155):NEXT J 
440 PRINT" ;FOR 1-1 TO 8 

450 PRINT i;" "¡ 

460 r(i,0)-l:NEXT 1 

470 IF a*-”n" THEN a-ROUNDCRND-4+2.5):cd-143:GOSUB 1080:coCs,JJ-l:GOSUB 1110 

480 LOCATE 3,23:INPUT"Su elección "¡a 

450 IF a<l OR s>8 THEN 480 

500 cd-207:GOSUB 1080:sb(a,JJ-l:60SUB 1110 

510 cd-143:FOR í-1 TO 8 

520 FOR J-6 TO 3 STEP -1 

530 IF rCi,J)-0 THEN 600 

540 IF p-1 THEN 580 

550 IF coCi,J)-0 THEN 610 

560 IF co(i,J-lJ-l ANO coCi,j-2J-l THEN a-i:GOSUB 1080:G0SUB 1110:60T0 1060 
570 GOTO 600 

580 IF abCi,J J-0 THEN 610 

590 IF sb( i,J-lJ-l AND abC1,J-2J-1 THEN rCa,JlJ-O:ccCa,JlJ-O:GOTO 1000 

600 NEXT J 

610 NEXT 1 

620 FOR J-l TO 6 

630 abl-1:ab2-4:h-0 

640 FOR i-abl TO sb2 

650 IF p-1 THEN 680 

650 IF coC i, J J-0 THEN íl-i ELSE h-h+1 
670 GOTO 690 

680 IF sbCi, J J-0 THEN íl-l ELSE h-h*l 
E90 NEXT 1 

700 IF p-0 AND h-3 AND r(ll,J)-0 AND rCil t J-lJ-I THEN s-il:GOSUB 1080:GOSUB 1110 
:GOTO 1060 

710 IF p-1 AND h-3 AND r(il t J)-0 AND rCil.J-lJ-l THEN r C s, J1 J-0: coCs, J1 .''-O: GOTO 
1000 

720 IF sbl<6 THEN h-0; abl-sbl*l: 3b2-sb2«-l: GOTO 640 

730 NEXT J 

740 FOR i-1 TO 5 

750 FCP J-l TO 3 

760 ip-l:Jp—J:h-0 
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770 IF p-1 THEN B00 

700 IF coCip,jpl-0 THEN ipl-ip: jpl-jp ELSE h-h+1 


790 GOTO B10 

000 IF ab(ip,Jpl-0 THEN ipl-lp:jpl-jp ELSE h-h+1 
010 IF ip<i+3 THEN ip-ip+1:Jp-Jp+1¡G0T0 770 

020 IF p-0 AND h-3 AND rCipl,Jpll-0 AND rCipl,Jpl-11-1 THEN s-ipl:GOSUB 1O0O:GOS 
UB 1110:GOTO 1060 

030 IF p-1 AND h-3 AND rCipl t jpll-0 AND rCipl,jpl-11-1 THEN rCa,J11-0¡coCa,J11-0 

¡GOTO 1000 

040 NEXT J 

050 NEXT 1 

060 FOR 1-4 TO 0 

070 FOR j-1 TO 3 

000 ip-l:jp-j:h-0 

090 IF p-1 THEN 920 

900 IF CcCíp.jpl-0 THEN ipl-lp: jpl-jp ELSE h-h+1 


910 GOTO 930 


920 IF abCip,Jpl-0 THEN lpl-lp:jpl-jp ELSE h-h+1 
930 IF ip>1-3 THEN lp-ip-1:jp-jp+1:GOTO 090 

940 IF p-0 AND h-3 AND rCipl.Jpll-0 AND rCipl,jpl-11-1 THEN s-ípl:GOSUB 1000:GOS 
UB 1110¡GOTO 1060 

950 IF p-1 AND h-3 AND ríipl.jpll-O AND rCipl,Jpl-11-1 THEN rCa,j11-0¡coCa,j11-0 
¡GOTO 1000 
960 NEXT j 
970 NEXT 1 

900 IF p-1 THEN p-0¡GQSUB 1110¡GOTO 400 
990 FOR i-1 TO 8:s(i1-0:NEXT 1:1-0 
1000 1-1+1: IF .1>0 THEN 1050 

1010 IF 1-1 THEN aCl1-ROUNDCRND+0+O.51¡GOTO 1030 
1020 aCll-aCl-11+1:IF aCll-9 THEN aCll-1 
1030 a-a(ll:GOSUB 1O0O¡cofa,J1-1:jl-j 
1040 p-1¡GOTO 510 

1050 LOCATE 19,23¡PRINT*M« ganado U atBd"¡GQTO 1070 
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1GS0 LOCATE 13,83:PRINT"He ganadc ya" 

1070 END 

10e0 FOR J-l TO 6 

1030 IF rCs.Jl-O THEN rCs,J>-1:RETURN 
1100 NEXT J:IF cd-807 THEN 480 ELSE 1000 
1110 z-7:F0R i-8 TO 17 STEP 3 
1180 2 -z-l:k -0 

1130 IF rís.zl-l AND rCs,Z+ll-l THEN RETURN 

1140 LOCATE s*3+s,i:PRINT CHRSÍcd);CHRSCcd ■;CHRSCcd 

1150 LOCATE s*3+s,i+1:PRINT CHRSCcdi; CHRS -cd > ; CHRS>. 

1130 IF rCs,z3-0 AND k-0 THEN PEN 0:):»i:E0T0 1140 

1170 PEN 1:NEXT i:RETURN 

11B0 REI1 UP subprDgrama esperar 

1130 LOCATE 7,85 

1800 PRINT”Pulse una tecla !” 

1810 xS-INKEYS 

1880 IF xS-”” THEN 1810 

1830 CLS:RETURN 
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Lista de variables: 


a$ = Cadena de contestación (s/n) 

cd = "Chipdesign",expresión numérica para dibujar los chips 
en el subprograma de las líneas 1110-1170 

co(I,j) = Campo de retícula ( i para las columnas y j para 
las líneas); igual a 1 si el ordenador ha ocupa¬ 
do el campo, de lo contrario, igual a 0. 

h = Variable de contador para el número de fichas que estén 
en una hilera 

i = Indice de control 

il = Índice de columnas para un campo no ocupado 

ip = Indice de columnas considerando las diagonales 

Ipl = Indice de columnas considerando las diagonales para un 
campo no ocupado 

j = Indice de control 

jl = Indice de líneas para un campo ocupado para pruebas 
(s es el correspondiente índice de columnas) 

jp = Indice de líneas considerando las diagonales 

jp1 = Indice de líneas considerando las diagonales para un 
campo no ocupado 

k = Variable auxiliar en el subprograma de las líneas 1110 - 
1170 

I = Indice de control para el valor de columna a probar 
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p = Variable auxiliar que indica cuál de los dos pasos de 
reflexión se ejecuta 

r(i,j) = Campo de retícula ( i para la columna y j para las 
líneas); igual a 1 si está ocupado (no importa con 
qué fichas), de lo contrario, igual a 0 

s,s(i) = valor de columna seleccionado o calculado o facili¬ 
tado aleatoriamente 

sb(l,j)= Campo de retícula ( I para la columna y j para las 
líneas): igual a 1 si el contrincante del ordenador 
ha ocupado el campo, de lo contrario, igual a 0 

sbl = Límite inferior de un bucle de programa 

sb2 = Límite superior de un bucle de programa 

z = Indice de líneas en el subprograma de las líneas 1110- 
1170 


Descripción del programa: 
Líneas 10 - 60 : Título 


Líneas 70 - 240 :EdicIón de las reglas del juego y pregunta 
relativa al comienzo de la partida 


Líneas 250 - 460:Se 
460 
con 
que 
nea 


dibuja el campo de juego. En la línea 
se equiparan a 1 los campos de retícula 
la línea 0, para comunicar al ordenador 
una ficha sólo cae hasta la primera Ií- 
y no más abajo. 
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Línea 470 : SI el ordenador ha de empezar la partida, se 
forma un número aleatorio entre 3 y 6. A 
continuación se ocupan los campos corres¬ 
pondientes y se dibuja la ficha de juego. 

Líneas 480- 500 : Selección de la columna del usuario del 
programa, ocupación de los campos y dibu¬ 
jo de una ficha. 

Líneas 510-1040 : El ordenador piensa. 

Esta parte de programa, primero, se eje¬ 
cuta para p=0, es decir, el ordenador 
comprueba si puede decidir, y por lo tan¬ 
to, terminar la partida a su favor. SI no 
es así, tiene lugar una ejecución para p= 
1, es decir, el ordenador comprueba si el 
número formado aleatoriamente en la lí¬ 
nea 1010 no conduce a que el contrincante 
gane la partida. Este número formado a- 
leatorlamente solamente entra en juego 
(línea 980), como elección del ordenador, 
si la ramificación a la línea 1000 (test 
de un nuevo número) no se hizo durante la 
ejecución. Se realiza un salto a la lí¬ 
nea 1000 siempre que la selección de un 
número o columna conduzca a la derrota 
del ordenador.Al mismo tiempo, dicho sal¬ 
to hace que los campos r(s,J1) y co(s,jl) 
ocupados en la línea 1030 para pruebas, 
sean equiparados de nuevo a cero. Como 
máximo se prueban, una tras otra, las 8 
posibles columnas (líneas 1000-1020, só¬ 
lo se forma aleatoriamente el primer nú¬ 
mero). Al cabo de 8 recorridos sin éxito, 
el ordenador abandona y tiene lugar una 
ramificación al final del programa (con 
edición de comentarlo en la línea 1050), 
es decir, el usuario del programa quizás 
tendrá que preguntarse porqué ha ganado. 
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Individualmente se pueden distinguir las 

siguientes partes de programa: 

510- 610 : Averiguación de las verticales 

620- 730 : Averiguación de las horizoma- 
íes 

740- 850 : Averiguación de las diagonales 
que suben desde la parte infe¬ 
rior izquierda a la superior 
derecha 

860- 970 : Averiguación de las diagonales 
que suben desde la parte infe¬ 
rior derecha a la superior Iz¬ 
quierda 

980-1040 : Dibujar una ficha y salto a la 
elección del compañero de jue¬ 
go, en el caso de que se haya 
hecho un recorrido con éxito, 
así como formación de números 
de prueba, ocupaciones de 
prueba de los campos r(s,j1) y 
co (s,J1) y salto de regreso a 
la línea 510 

Líneas 1050-1060 : Comentario sobre el desenlace de la pai— 
ti da 

Línea 1070 : Final del programa 

Líneas 1080-1100 : Subprograma para la ocupación del campo 
r(s,j) en función de la columna s esco¬ 
gida. Si ya se encuentran 6 fichas en la 
columna, tiene lugar un salto de regreso 
a la nueva selección ( aquí la variable 
cd Indica si ha acertado la elección el 
ordenador o el usuario del juego ). 

Líneas 1110-1170 : Subprograma para dibujar una pieza que 
cae 

Líneas 1180-1230 : Subprograma "esperar' 1 
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10.4. Filón de Ideas 


- Juegos de tablero, como el juego de damas, tres en raya, 
o ajedrez 

- Juegos de cartas, como el skat, 17 y 4 ó cabeza doble 

- Juegos de dados 

- Memory o seramble 

- Monopolio o riesgo 

- Juegos de laberinto 

- Juego de barcos 

- Alunizaje 

- Pequeños juegos de Invasores de todo tipo 

- Y muchas otras cosas 
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11. OBSERVACION FINAL 


Después de haber estudiado este libro de una forma más o 
menos atenta, esperamos que se haya enriquecido usted con 
alguna que otra Idea. 

Quizás le habrá llamado la atención que algunas partes de 
programa y rutinas se repitan en los diferentes capítulos. 
Basta con pensar en la habitual selección de menú con las 
funciones 

- Entrada 

- Mirar 

- Leer 

- Almacenar 

- Corregir 


Con problemas parecidos en sus principios, se pueden, 
ciertamente, desarrollar normas que estandardizan el 
desarrollo del programa; sin embargo, hemos prescindido de 
ellas a propósito, con el fin de acercarnos más a la forma 
de proceder y modo de pensar del programador aficionado y 
del programador por hobby. Este, generalmente, buscará una 
solución partiendo de un tema o de un problema y no tendrá 
más proyectos de software en la cabeza. También hasta aquí, 
el presente libro representa una ayuda para el ejercicio y 
el entrenamiento del programador principlante. 
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APENDICE A 


Instrucciones BASIC Importantes 


Dado que todas las Inst'uccIones BASIC del Amstrad se 
encuentran descritas detalladamente en su libro manual de 
servicio, solamente hemos de mostrar aquí algunas reglas 
elementales para su utilización: 


1. Todo programa BASIC se concluye con el statement END. 

2. Las magnitudes a editar con la Instrucción PRINT son 
separadas por medio de comas, si la expresión se ha de 
proseguir al principio de la siguiente zona de la pantalla. 
SI se utiliza el punto y coma, la expresión se une de forma 
Inmediata a la edición ya efectuada. Una coma o un punto y 
coma al final de una Instrucción PRINT suprime el avance de 
línea que, de lo contrario, tiene lugar. 

3. La Instrucción INPUT pide exactamente tantos valores como 
variables hay en la lista de variables. Los diferentes 
valores, así como las variables son separadas entre sí por 
medio de comas. 

4. SI se cumple la condición de la Instrucción IF ... THEN, 
se ejecuta la Inst’ucclón que se encuentra detrás de THEN. 
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Otras instrucciones separadas entre sf por medio de dobles 
puntos y que están detrás del statement IF ... THEN también 
son ejecutadas solamente cuando se cumple la condición 
lógica. Si la condición no se cumple, simplemente se procesa 
la siguiente línea. 

5. En el statement FOR ... TO ... NEXT (bucle), durante las 
ejecuciones del bucle no se pueden modificar el valor 
Inicial, el valor final ni la amplitud de paso. El nombre de 
la variable de control ha de ser del tipo real y tiene que 
ser el mismo que en el NEXT-statement. Los bucles pueden ser 
abandonados anidados y se puede saltar a los bucles. 

6. Si, para una variable indexada, se necesitan más espacios 
de los que se dispone por ajuste previo, se tiene que 
dimensionar, es decir, se tiene que reservar espacio 
(DIM-statement). 

7. En la creación de variables reales se debe tener presente 
que sus nombres no pueden sobrepasar el máximo de 40 
caracteres alfanuméricos. El primer carácter, sin embargo, 
tiene que ser una letra. Las variables de cadena (serles de 
caracteres) son provistas del carácter $. 

8. Si se provee al ordenador de datos con el DATA y READ 
Statement, los tipos de valores y de las variables tienen 
que coincidir. Aquí se asigna el primer valor del DATA 
statement a la primera variable del READ statement, etc. 

9. Detrás de los statements ON ... GOTO y 0N ... GOSUB en la 
misma línea no se ejecuta ninguna otra instrucción. 
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10. Las Instrucciones WINDOW que siguen cubren los 
resultados de los WINDOW-Statements precedentes. 
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APENDICE B 


Mensajes de error importantes 

ARRAY ALREADY DIMENSIONED: Un campo ha sido dimensionado dos 
veces. 

CANNOT CONTINUE: Intento de proseguir el programa después de 
un mensaje de error o de una modificación del programa. 

DATA EXHAUSTED: Hay más Instrucciones READ que instrucciones 
DATA. 

DIVISION BY ZERO: Una división por cero es Inadmisible. 

LINE DOES NOT EXIST: Salto a un número de línea que no 
existe. 

NEXT MISSING: En un bucle de programa falta el NEXT 
statement. 

OVERFLOW: El resultado de un cálculo es demasiado grande. 

REDO FROM START: Se ha Intentado leer en una variable normal 
datos no numéricos con una Instrucción INPUT 
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SUBSCRIPT OUT OF RANGE: Se ha consultado un elemento de 
matriz, que se encuentra fuera de la dlmenslonlzactón. 

SYNTAX ERROR: Una Instrucción es defectuosa o no existe. 

TYPE MISMATCH: Variables numéricas han sido tratadas como 
cadena o viceversa. 


UNEXPECTED 

statement. 

NEXT: 

En un bucle 

de programa falta el FOR 

UNEXPECTED 

RETURN: 

Subrutlna sin 

GOSUB. 
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COMMODORE 



Ofrece un campo fascinante y amplio de 
problemáticas científicas Para esto el 
libro contiene muchos listados intere¬ 
santes Análisis de Fornier y síntesis, 
análisis de redes, exactitud de cálculo, 
formateado de números, cálculo del 
valor PH, sistemas de ecuaciones dife¬ 
renciales, modelo ladrón presa, cálculo 
de probabilidad, medición de tiempo, 
integración, etc 

64 en el campo de la Técnica y la 
Ciencia. 361 págs. P.V.P. 2.800,- 
ptas. 



La obra Standard del floppy 1541, todo 
sobre la programación en disquettes 
desde los principiantes a los profesio¬ 
nales, además de las informaciones 
fundamentales para el DOS, los coman¬ 
dos de sistema y mensajes de error, 
hay varios capítulos para la administra¬ 
ción práctica de ficheros con el FLOP¬ 
PY, amplio y documentado Listado del 
Dos. Además un filón de los más 
diversos programas y rutinas auxilia¬ 
res, que hacen del libro una lectura 
obligada para los usuarios del Floppy. 
Todo sobre el Floppy 1541. Precio 
venta 3.200 ptas. 



Un excelente libro, que le mostrará 
todas las posibilidades que le ofrece su 
grabadora de casettes Describe deta¬ 
lladamente, y de forma comprensible, 
todo sobre el Datassette y la grabación 
en cassette. Con verdaderos programas 
fuera de serie: Autostart, Catálogo 
(¡busca y carga automáticamente!), 
backup de y a disco, SAVE de áreas de 
memoria, y lo más sorprendente: un 
nuevo sistema operativo de cassette 
con el 10-20 veces más rápido Fast 
Tape Además otras indicaciones y 
programas de utilidad (ajuste de cabe¬ 
zales, altavoz de control) 

El Manual del Cassette. 190 pág. 
P.V.P. 1.600,- ptas. 



¡Por fin una introducción al código 
máquina fácilmente comprensible! 
Estructura y funcionamiento del proce¬ 
sador 6510, introducción y ejecución 
de programas en lenguaje, máquina, 
manejo del ensamblador, y un simula¬ 
dor de paso a paso escrito en BASIC. 
Lenguaje máquina para Commodore 
64.1984, 201 pág. P.V.P. 2.200,- 
ptas. 



CONSEJOS Y TRUCOS, con más de 
70.000 eiemplares vendidos en Alema 
nia, es uno de los libros más vendidos 
de DATA BECKER. Es una colección 
muy interesante de ideas para la pro¬ 
gramación del Commodore 64, de PO- 
KEs y útiles rutinas e interesantes 
programas. Todos los programas en 
lenguaje máquina con programas car¬ 
gadores en Basic 

64 Contejos y Trucos. 1984, 364 pág. 
P.V.P. 2.800,- ptas. 



Este libro, contiene muchos interesan¬ 
tes programas de aprendizaje para 
solucionar problemas, descritos deta¬ 
lladamente y de manera fácilmente 
comprensible. Temas: progresiones 
geométricas, palanca mecánica, creci¬ 
miento exponencial, verbos irregulares, 
ecuaciones de segundo grado, movi¬ 
mientos de péndulo, formación de 
moléculas, aprendizaje de vocablos, 
cálculo de interés y su capitalización. 
Manual escolar para su Commodore 
64. 389 págs. P.V.P. 2.800,- ptas. 



En el libro de los robots se muestran las 
asombrosas posibilidades que ofrece el 
CBM 64, para el control y la programa¬ 
ción, presentadas con numerosas ilus¬ 
traciones e intuitivos ejemplos El punto 
principal: Cómo puede construirse uno 
mismo un robot sin grandes gastos. 
Además, un resumen del desarrollo 
histórico del robot y una amplia intro¬ 
ducción a los fundamentos cibernéti¬ 
cos Gobierno del motor, el modelo de 
simulación, interruptor de pantalla, el 
Port-Usuario cómodo del modelo de 
simulación, Sensor de infrarrojos, con¬ 
cepto básico de un robot, realimenta¬ 
ción unidad cibernética, Brazo prensor, 
Oír y ver. 

Robótica para su Commodore 64.340 
págs. P.V.P. 2.800 ptas. 



Saberse apañar uno mismo, ahorra 
tiempo, molestias y dinero, precisa¬ 
mente problemas como el ajuste del 
floppy o reparaciones de la platina se 
pueden arreglar a menudo con medios 
sencillos. Instrucciones para eliminar la 
mayoría de perturbaciones, listas de 
piezas de recambio y una introducción a 
la mecánica y a la electrónica de la 
unidad de disco, hay también indicacio¬ 
nes exactas sobre herramientas y mate¬ 
rial de trabajo. Este libro hay que 
considerarlo en todos sus aspectos 
como efectivo y barato. 
Mantenimiento y reparación del 
Floppy 1541.325 págs. P.V.P. 2.800,- 
ptas. 










Este es el libro que buscaba: un 
diccionario general de micros que con¬ 
tiene toda la terminología informática 
de la A a la Z y un diccionario técnico 
con traducciones de los términos ingle¬ 
ses de más importancia - los DICCIO¬ 
NARIOS DATA BECKER prácticamente 
son tres libros en uno. La increíble 
cantidad de información qué contienen, 
no sólo los convierte en enciclopedias 
altamente competente, sino también en 
herramientas indispensables para el 
trabajo. El DICCIONARIO DATA BEC¬ 
KER se edita en versión especial para 
APPLE II, COMMODORE 64 e IBM PC 
El diccionario para su Coinmodore 64. 
350 pig. P.V.P. 2.600,-pías. 



Casi todo lo que se puede hacer con el 
Commodore 64, está descrito detalla¬ 
damente en este libro. Su lectura no es 
tan sólo tan apasionante como la de una 
novela, sino que contiene, además de 
listados de útiles programas, sobre 
todo muchas, muchas aplicaciones rea¬ 
lizables en el C64. En parte hay listados 
de programas listos para ser tecleados, 
siempre que ha sido posible condensar 
■recetas» en una o dos páginas. Si 
hasta el momento no sabia que hacer 
con su Commodore 64, ¡después de 
leer este libro lo sabrá seguro! 

El libro do Ido» del Commodore 64. 
1964, mác de 290 páginas, P.V.P. 
1.600,- ptas. 



¿Ud. ha logrado iniciarse en código 
máquina? Entonces el «nuevo English» 
le enseriará cómo convertirse en un 
profesional. Naturalmente con muchos 
programas ejemplo, rutinas completas 
en código máquina e importantes con¬ 
sejos y trucos para la programación en 
lenguaje máquina y para el trabajo con 
el sistema operativo. 

Lengüeta máquina pan avanzados 
COM 64 1914,206 pág. P.V.P. 2.200 
ptas. 



Este libro ofrece una amplia práctica 
introducción en el importante tema de 
la gestión de ficheros y bancos de 
datos, especialmente para los usuarios 
del Commodore 64. Con muchas inte¬ 
resantes rutinas y una confortable ges¬ 
tión de ficheros 

Todo sobn bases de datos y gestión 
de Deberos pan Commodon-64.221 
pdgs. P.V.P. 2.200,-ptas. 



Gráficos para el Commodore 64 es un 
libro gara todos los que quieren hacer 
algo creativo con su ordenador El 
contenido abarca desde los fundamen¬ 
tos de, la programación de gráficos 
hasta el diserio asistido por ordenador 
(CAD). 

Grádeos pan el Commodon 64.295 
paga. P.V.P. 2.200,-ptas. 



Para los usuarios que posean un VIC- 
20, C-64 o PC-128 este libro contiene 
gran cantidad de consejos, trucos, 
listados de programas, asi como infor¬ 
mación sobre Hardware, tanto si usted 
dispone de una impresora de margarita 
o de matriz, como si tiene un Plotter 
VC-1520, el GRAN LIBRO DE IMPRE¬ 
SORAS constituye una inestimable 
fuente de información. 

Todo sobn Impresons. 361 págs. 
P.V.P. 2.600,- ptas. 



Con más de 60.000 ejemplares vendi¬ 
dos, ésta es la obra estándar para el 
COMMODORE 64. Todo sobre la tecno¬ 
logía, el sistema operativo y la progra¬ 
mación avanzada del C-64 Con listado 
completo y exhaustivo de la ROM, 
circuitos originales documentados y 
muchos programas. ¡Conozca su C-64 
a fondo! 

64 Interno. 1964,352 pág. P.V.P. 
3.800,- ptas. 



Con importantes comandos PEEK y 
POKE se pueden hacer también desde el 
Basic muchas cosas, para las que se 
necesitarían normalmente complejas 
rutinas en lenguaje máquina. Con una 
enorme cantidad de POKEs importantes 
y su posible aplicación. Para ello se 
explica perfectamente la estructura del 
Commodore 64: Sistema operativo, 
interpretador, página cero, apuntadores 
y stacks, generador de caracteres, 
registros de sprites, programación de 
intertaces, desactivación de interrupt. 
Además una introducción al lenguaje 
máquina. Muchos programas ejemplo 
PEEKS y POKES. 177 pág. P.V.P. 
1.600,- ptas. 














































Este libro presenta una detallada e 
interesante introducción a la teoría, 
conceptos básicos y posibilidades de 
uso de la inteligencia artificial (1A). 
Desde un resumen histórico sobre las 
máquinas «pensantes» y 'Vivientes» 
hasta programas de aplicación para el 
Commodore 64. 

Inteligencia artificial. 395 pága. 
2.100,-ptaa. 



64, Consejos y Trucos vol. 2 contiene 
una gran profusión de programas, 
estímulos y muchas rutinas útiles. Un 
libro que constituye una ayuda impres¬ 
cindible para todo aquél que quiera 
escribir programas propios con el 
COMMODORE. 

Conselos y Trucos, Commodore 64. 
Vol. 2.259 pága. 2.200,- ptas. 



Este libro ofrece al programador intere¬ 
sado una introducción fácilmente com¬ 
prensible para los tan extendidos As- 
sembler PROFI-ASS, SM MAE y T.E- 
X.ASS. con consejos y trucos de gran 
utilidad, indicaciones y programas adi¬ 
cionales. Al mismo tiempo sirve de 
manual orientado a la práctica, con 
aclaraciones de conceptos importantes 
e instrucciones 

El Ensamblador. 260 páginas. 2.200,- 
ptas. 



El libro de Primicias del Commodore 
128 no ofrece solamente un resumen 
completo de todas las características y 
rendimientos del sucesor del C-64 y 
con ello una importante ayuda para su 
adquisición. Muestra, además, todas 
las posibilidades del nuevo equipo en 
función de sus tres modos de opera¬ 
ción. 

Todo sobro al nuevo Commodore 121. 
260 pága. P.V.P. 2.200,- ptas. 



El libro Commodore 128-ConsejOS y 
Trucos es un filón para cualquier posee¬ 
dor del C-128 que desee sacar más 
partido a su ordenador Este libro no 
sólo contiene gran cantidad de progra¬ 
mas-ejemplo. sino que además explica 
de un modo sencillo y fácil la configura¬ 
ción del ordenador y de su programa¬ 
ción. 

Commodore 128-Consajos y Trucos. 
327 pága. 2.600,-ptas. 









































AMSTRAD 



Ofrece una colección muy interesante 
de sugerencias, ideas y soluciones para 
la programación y utilización de su 
CPC 464: Desde la estructura del hard¬ 
ware, sistema de funcionamiento - 
Tokens Basic, dibujos con el joystick, 
aplicaciones de ventanas en pantalla y 
otros muchos interesantes programas 
como el procesamiento de datos, editor 
de sonidos, generador de caracteres, 
monitor de código máquina hasta lista¬ 
dos de interesantes juegos. 

CPC-464 Consejos y Trucos. 263 págs. 
P.V.P. 2.200,- ptas. 



Escrito para alumnos de los últimos 
cursos de E6B y de BUP, este libro 
contiene muchos programas para resol¬ 
ver problemas y de aprendizaje, descri¬ 
tos de una forma muy compleja y fácil 
de comprender. Teorema de Pitágoras, 
progresiones geométricas, escritura ci¬ 
frada, crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más. 

CPC-464 El libro dol colegio. 380 
págs. P.V.P. 2.200,- ptas. 



PEEK.S, POKES y CALLS se utilizan para 
introducir al lector de una forma fácil¬ 
mente accesible al sistema operativo y 
al lenguaje máquina del CPC. Propor¬ 
ciona además muchas e interesantes 
posibilidades de aplicación y programa¬ 
ción de su CPC. 

PEEKS y POKES del CPC 464/6128. 

180 pág. P.V.P. 1.600,- ptas. 



El libro del lenguaje máquina para el 
CPC 464/6128 está pensado para todos 
aquellos a quienes no les resulta sufi¬ 
ciente con las posibilidades y rapidez 
del BASIC. Se explican aquí detallada¬ 
mente las bases de la programación en 
lenguaje máquina, el funcionamiento 
del procesador Z-80 con sus respecti¬ 
vos comandos así como la utilización 
de las rutinas del sistema con abundan¬ 
tes ejemplos. El libro contiene progra¬ 
mas completos de aplicación tales co¬ 
mo Ensamblador. Desensamblador y 
Monitor, facilitando de esta manera la 
introducción del lector en el lenguaje 
máquina. 

El Lenguaje Máquina del CPC 464/ 
6128.330 pág. P.V.P. 2.200,- ptas. 
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El LIBRO DEL FLOPPY del CPC lo 
explica todo sobre la programación con 
discos y la gestión relativa de ficheros 
mediante el floppy DDI-1 y la unidad de 
discos incorporada del CPC 664/6128. 
La presente obra, un auténtico stán- 
dart, representa una ayuda incompara¬ 
ble tanto para el que desee iniciarse en 
la programación con discos cómo para 
el más curtido programador de ensam¬ 
blados. Especialmente interesante re¬ 
sulta el listado exhaustivamente comen¬ 
tado del DOS y los muchos programas 
de ejemplo, entre los que se incluye un 
completo paquete de gestión de fiche¬ 
ros. 

El Libro del Floppy del CPC. 353 pág. 
P.V.P. 2.800,- ptas. 



i Dominar CP/M por fin! Desde explica¬ 
ciones básicas para almacenar núme¬ 
ros, la protección contra la escritura, o 
ASCII, hasta la aplicación de programas 
auxiliares de CP/M, así como «CP/M 
intemo» para avanzados, cada usuario 
del CPC rápidamente encontrará las 
ayudas e informaciones necesarias, 
para el trabajo con CP/M. Este libro 
tiene en cuenta las versiones CP/M 2.2, 
así como CP/M Plus (3.0), para el 
AMSTRAD CPC 464, CPC 664 y CPC 
6128. 

CP/M. El libro de ejercicios pera CPC. 
260 pág. P.V.P. 2.800,-ptas. 
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MSX 

El 

Manual 
Escolar ! 

contiene muchos programas para resol¬ 
ver problemas y de aprendizaje, descri¬ 
tos de una forma muy completa y fácil 
| de comprender Teorema de Pitágoras. 

progresiones geométricas, escritura ci- 
| (rada, crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más 

MSX el Manual Escolar. 389 págs. 

| P.V.P. 2.800,-ptas. 

MSX ¡| 

Programas | 

Utilidades S 

un LIBBO DATA BICHEA |l || 
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MSX 

Gráficos 

y 

Sonido 

una relación precio rendimiento sobre¬ 
saliente, sino que también poseen unas 
cualidades gráficas y de sonido excep¬ 
cionales Este libro expone las posibili¬ 
dades de los MSX de forma completa y 
fácil El texto se completa con numero¬ 
sos y útiles programas ejemplo 

MSX Gráficos y Sonidos. 250 págs. 

P.V.P. 2.800.-ptas. , 

MSX 

Consejos y 
Trucos 

UN Limito DAT A BtCKSH 

I 

UM Limito DATA BECKKA 


El libro contiene una amplia colección 
de importantes programas que abar¬ 
can. desde un desensamblador hasta 
un programa de clasificaciones deporti¬ 
vas. Juegos superemocionantes y apli¬ 
caciones completas. Los programas 
muestran además importantes consejos 
y trucos para la programación Estos 
programas funcionan en todos los or¬ 
denadores MSX. así como en el SPEC- 
TROVIDEO 318 328. 

MSX Programas y Utilidades, 1985, 
194 pág. P.V.P. 2.200,- ptas. 


Este libro contine una colección sm 
igual de trucos y consejos para todos 
los ordenadores con la nueva norma 
MSX No sólo contiene las recetas 
completas, sino también los conoci¬ 
mientos básicos necesarios. 

MSX • Consejos y Trucos. 288 págs. 
P.V.P. 2.200,- ptas. 



R libro del Lenguaje Maquina para el 
MSX está creado para todos aquellos a 
quienes el BASIC se les ha quedado 
pequeño en cuanto a rendimiento y 
velocidad Desde las bases para la 
programación en Lenguaie Máquina, 
pasando por el método de trabaio del 
Procesador Z-80 y una exacta descnp- 
ción de sus órdenes, hasta la utilización 
de rutinas del sistema todo ello ha sido 
explicado en detalle e ilustrado con 
múltiples ejemplos en este libro 
El libro contiene, además, como pro¬ 
gramas de aplicación, un ensamblador 
un desensamblador y un monitor 
MSX Lenguaje Máquina. 306 págs. 
2.200,- ptas. 


ZX SPECTRUM 



Una interesante colección de sugestivas 
ideas y soluciones para la programa¬ 
ción y utilización de su ZX ESPEC- 
TRUM Aparte de muchos peeks. pokes 
y USRs hay también capítulos comple¬ 
tos para, entre otros, entrada de datos 
asegurado sin bloqueo de ordenador, 
posibilidades de conexión y utilización 
de microdrives y lápices ópticos, pro¬ 
gramas para la representación de dia¬ 
gramas de barra y de tarta, el modo de 
utilizar óptimamente ROM y RAM 
ZX Spectrum Consejos y Trucos, 211 
pág. P.V.P. 2.200.- ptas 



Escrito para alumnos de los últimos 
cursos de EGB y de BUP. este libro 
contiene muchos programas para resol¬ 
ver problemas y de aprendizaje, descri¬ 
tos de una forma muy completa y fácil 
de comprender Teorema de Pitágoras. 
progresiones geométricas, escritura ci¬ 
frada. crecimiento exponencial, verbos 
irregulares, igualdades cuadráticas, 
movimiento pendular, estructura de 
moléculas, cálculo de interés y muchas 
cosas más. 

ZX Spectrum el Manual Escolar. 389 
págs. P.V.P. 2.200,- ptas. 








ATARI 



Tan interesante como el tema, es el 
libro que explica de forma fácilmente 
comprensible el manejo de Peeks y 
Pokes importantes, y representa un 
gran número de Pokes con sus posibili¬ 
dades de aplicación, incluyendo ade¬ 
más programas ejemplo. Al lado de 
temas como lo son la memoria de la 
pantalla, los bits y los bytes, el mapa de 
la memoria, la tabla de modos gráficos 
o el sonido, tambián se detalla de forma 
magnifica la estructura del ATARI 
600XL/800XU130XE. 

Peeks y Pokes para ATARI 600XU 
800XL/130XE. 251 pig. P.V.P. 2.21X1, 
ptas. 



Una lograda introducción al sugestivo 
tema de los «juegos estratégicos» 
Desde juegos sencillos con estrategia 
fija a juegos complejos con procedi¬ 
mientos de búsqueda hasta programas 
con capacidad de aprendizaje —mu 
chos ejemplos interesantes, escritos 
por supuesto de torma fácilmente com 
prensible Con programas de |uegos 
ampliamente detallados: NIM con un 
montón, bloqueo, hexapawn, mim-da- 
mas y muchos más. 

Juegos ostratágicos y cómo 
programarlos en al ATARI 600XL7 
800XL/130XE. 181 pág. P.V.P. 1.600. 
ptas. 



Jugar a aventuras con éxito y progra¬ 
marlas uno mismo - todo lo verdadera¬ 
mente importante sobre el tema, lo 
contiene este gula fascinante que te 
lleva a través del mundo fantástico de 
las aventuras. El libro abarca todo el 
espectro, hasta las más sofisticadas 
aventuras gráficas llenas de trucos, 
acompañándolas siempre de numero¬ 
sos programas ejemplo. Sin embargo la 
clave —al margen de muchas aventuras 
para teclear— es un generador de 
aventuras completo, mediante el cual la 
programación de aventuras se convierte 
en un juego de nidos. 

Aventuras - y cómo programarlas en al 
ATARI 500XU800XL/130XE. 254 pág. 
P.V.P. 2.200,-ptas. 



Muchos programas interesantes de so¬ 
luciones de problemas y de aprendizaje, 
descritos de forma amplia y comprensi¬ 
ble. y adecuados sobre todo para 
escolares. jAqui el aprendizaje intensi¬ 
vo se convierte de una tarea divertida! 
Al margen de temas como los verbos 
irregulares, o las ecuaciones de segun¬ 
do grado, un resumen corto de las 
bases del tratamiento electrónico de 
datos, y una introducción a los princi¬ 
pios del análisis de problemas, comple¬ 
tan este libro que deberla obrar en 
posesión de cualquier escolar 
El libro etcolar para ATARI 600XU 
800XL/130XE. 359 pág. P.V.P. 2.800,- 
ptai. 


OTROS TITULOS 



El primer libro recomendado para es¬ 
cuelas de enseñanza de informática y 
para aquellas personas que quieren 
aprender la programación. Cubre las 
especificaciones del Ministerio de Edu¬ 
cación y Ciencia para Estudios de 
Informática. Es el primer libro que 
introduce a la lógica del ordenador. Es 
un elemento de base que sirve como 
introducción para la programación en 
cualquier otro lenguaje. No se requieren 
conocimientos de programación ni si¬ 
quiera de informática. Abarca desde los 
métodos de programación clásicos a 
los más modernos 
Metodología da la Prognmacláo. 250 
págs. P.V.P. 2.200,-ptai. 



La técnica y programación del Procesa¬ 
dor Z80 son los temas de este libro Es 
un libro de estudio y de consulta 
imprescindible para todos aquellos que 
poseen un Commodore 128, CPC, MSX 
u otros ordenadores que trabajan con el 
Procesador Z80 y desean programar en 
lenguaje máquina. 

El Procesador Z80.550 pág. P.V.P. 
3.800,- ptas. 



El tema de este libro es la técnica y 
programación de los procesadores de la 
familia 68000. Es una obra de consulta 
indispensable, un manual para todo 
programador que quiera utilizar las 
ventajas del 68000 
Técnica y programación para al 
procasador 68000.516 págs. P.V.P. 
3.800,-ptas. 
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Puesta al Ufa de datos 

EDITORIAL FERRER MORET, S.A. mantiene vivo y amplía el contenido informativo de sus libros y 
programas, mediante el envío de un servicio de puesta al día, junto con una síntesis noticiosa de la 
actualidad y perspectivas de la realidad informática española. 

Agradecemos cualquier sugerencia o crítica que desee formular y que nos ayude a mejorar las ediciones. 
Muchas gracias. 

¿Qué añadiría? 


¿Qué suprimiría? 


Observaciones 


Título del libro 

Nombre 

Dirección 

Código Postal y Población 

ÜN servícío GRÁiürro" 


Tfno. 

Provincia 


3*4 


información y Pedidos 

FERRE MORET, S.A. cuenta con un amplio fondo de libros y Software y mantiene un servicio de información 
por correo sobre las novedades que edita. 

Agradecemos nos indique los temas que representan para Vd. mayor Ínteres. 

Libros □ ATARI □ MSX □ AMSTRAD 

□ COMMODORE □ LENGUAJES □ APPLE 

□ SINCLAIR □ IBM □ SOFTWARE 

Si está interesado en recibir alguno de estos servicios, rellene y envíe la tarjeta correspondiente; no necesita 
franqueo. Muchas gracias. 

DESEO RECIBIR EL LIBRO. 

EL PROGRAMA. 

□ Adjunto cheque □ Contra reembolso 

Nombre 

Dirección Tfno. 

Código Postal y Población Provincia 

ÜN SÉRVICiÜ GRATÜITÓ. 



















EL CONTENIDO: 

¿No se ha comprado el Amstrad CPC sólo para jugar? 
En este caso, este libro es el adecuado para usted. En 
él se describen casi todas las posibilidades del CPC. 
No sólo está escrito de torma interesante, sino que 
además de útiles listados de programas también 
contiene muchas, muchas posibilidades de aplica¬ 
ción. Se ha puesto especial interés en que el libro 
resulte de fácil comprensión, incluso para el más 
novato en el tema 

Una selección de la variedad temática: 

— Publicidad en escaparates 

— Coche y ordenador 

— Optimización del trayecto del viaje 

— Los gastos del coche bien a la vista 

— Dinero, crédito y ordenador 

— Cálculo del interés compuesto 

— Confeccionar textos e imprimir 

— Procesador de texto 

— El estado y el dinero 

— Cálculo de la pensión 

— Liquidación anual del impuesto sobre la renta del 
trabajo 

— Economía doméstica y salud 

— Contador electrónico de calorías 

— Pintar, dibujar y crear gráficos 

— Música 

— Liga nacional de fútbol 

— Monitor de vocablos 

ESTE LIBRO HA SIDO ESCRITO POR: 

Bernd Kowal, experimentado autor de libros técnicos 
de informática. Con este libro nos muestra, que es un 
excelente conocedor del CPC y que ha trabajado muy 
intensamente sus posibilidades de aplicación. 


ISBN 84 - 86437-4 7-4 
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[FRA] Ce document a été preservé numériquement á des fins éducatives et d'études, et non commerciales. 

[ENG] This document has been digitally preserved for educational and study purposes, not for commercial purpnses. 
[ESP] Este documento se ha conservado digitalmente con fines educativas y de estudio, na con fines comerciales. 


















